Напишите алгоритм, который в последовательности натуральных чисел определяет количество, произведение и сумму чисел, оканчивающихся на 7. Введенные числа не превышают 30 000.

smirnovadashuta smirnovadashuta    1   19.04.2022 10:52    3

Ответы
sergeirasnei sergeirasnei  19.04.2022 11:00

Program f0ck;

var s,x:integer;

begin

s:=0;

x:=1;

while x<>0 do

begin

read(x);

if (x mod 7=0) and (i mod 10=0) then s:=x+s;

end;

writeln('summa=',s);

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика