С клавиатуры вводятся 17 чисел. Найти произведение
положительных чисел не делящихся на 17. Сделать в Турбо Паскале, методом repeat...until
положительных чисел не делящихся на 17. Сделать в Турбо Паскале, методом repeat...until
More Questions From This User See All
Answers & Comments
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.