Program M1;
var s,x:integer;
begin
s:=0;
x:=1;
while x<>0 do
read(x);
if (x mod 7=0) and (i mod 10=0) then s:=x+s;
end;
writeln('summa=',s);
end.
Объяснение:
Поделитесь своими знаниями, ответьте на вопрос:
Напишите программу, которая в последовательности натуральных чисел определяет количество и сумму всех чисел, кратных 7 и оканчивающихся на 2.
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.
Объяснение: