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

gnbufa gnbufa    2   16.12.2020 18:42    6

Ответы
musulmanka95 musulmanka95  16.12.2020 18:50

Program M1;  

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.

Объяснение:

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