Информатика, опубликовано 2018-08-22 22:58:00 by Гость
С клавиатуры вводятся 17 чисел. Найти произведениеположительных чисел не делящихся на 17. Сделать в Турбо Паскале, методом repeat...until
Ответ оставил Гость
CONST N = 17;
var
x,i,p:integer;
begin
p:=1;
repeat
read(x);
if (x mod N 0) and (x > 0) then p:=p*x;
inc(i);
until i=N;
write(p);
end.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на