С клавиатуры вводятся 17 чисел. Найти произведение
положительных чисел не делящихся на 17. Решить в паскале, методом repeat...until
положительных чисел не делящихся на 17. Решить в паскале, методом repeat...until
More Questions From This User See All
Answers & Comments
Uses crt;
Var i,pr:integer;
a:array[1..17] of integer;
Begin
pr:=1;
i:=1;
writeln('Введите 17 чисел');
Repeat
readln(a[i]);
inc(i); Until i>17;
i:=1;
repeat
if (a[i]>0) and (a[i] mod 17<>0) then
pr:=pr*a[i];
inc(i)
Until i>17;
writeln('Произведение=',pr);
readln;
end.