Question

С клавиатуры вводятся 17 чисел. Найти произведение
положительных чисел не делящихся на 17. Сделать в Турбо Паскале, методом repeat...until

Answer 1

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.