Информатика, опубликовано 2018-08-22 22:15:04 by Гость
Напишите для паскаля,пожалуйста.С клавиатуры вводятся 17 чисел. Найти произведение положительных чисел не делящихся на 17.
Ответ оставил Гость
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 170)then begin
k:=1;
s:=s*i;
end;
end;
if k=1 then write(s)else write(0);
end.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.