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