Регистрация
ahmedovadidi090
10.10.2021 18:28
Информатика
Есть ответ 👍

Напишите для паскаля,. с клавиатуры вводятся 17 чисел. найти произведение положительных чисел не делящихся на 17.

291
371
Посмотреть ответы 2

Ответы на вопрос:

Adel3004
Adel3004
4,5(11 оценок)
Program  chik; var k,i,s,a: integer; begin s: =1; k: =0; for  i: =1  to  17  do begin read(a); if  (a  mod  17< > 0)then  begin k: =1; s: =s*i; end; end; if  k=1  then   write(s)else write(0); end. 
AmooQ
AmooQ
4,4(100 оценок)
Решение на  паскаль. начало решения  одинаковое, а дальше см. внизу program xxx; var b: array [1..6, 1..6] of integer;   i, j, s : integer; begin for i: = 1 to 6 do for j: =1 to 6 do   b[i,j]: = random(131)-65; writeln ('исходная матрица в: '); for i: =1 to 6 do   begin     for j: =1 to 6 do       write (b[i,j]: 4);     writeln   end; 1. s: =0; for i: = 1 to 6   do   if b[i,3]> 0 then  s: =s+b[i,3]; writeln ('сумма положительных элементов 3-го столбца', s) end. 2. i: =2; while i< =6 do begin     for j: = 1 to 6 do       if b[i,j]< 0 then b[i,j]: =0;     i: =i+2 end; writeln ('полученная  матрица в: '); for i: =1 to 6 do   begin     for j: =1 to 6 do       write (b[i,j]: 4);     writeln   end end.

Популярно: Информатика