С клавиатуры вводятся 17 чисел. Найти произведениеположительных чисел не делящихся на 17. Сделать в Турбо Паскале, методом repeat...until
С клавиатуры вводятся 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.
Не нашли ответ?
Похожие вопросы