Напишите программу которая в последовательности натуральных чисел определяет сумму всех чисел кратных 7 и оканчивающихся на 2. Программа получает на вход натуральные числа и количество введенных чисел неизвестно последовательность чисел заканчивается числом 0. Количество чисел не превышает 1000 . Введенные числа не превышают 30 000. Программа должна вывести одно число: сумму всех чисел, кратных 7 и оканчивающихся на 2.
Входные данные: 112, 24, 42, 49, 22,0
Выходные данные: 154
Ответы
Ответ дал:
0
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.
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.
Вас заинтересует
1 год назад
1 год назад
2 года назад
8 лет назад
8 лет назад
8 лет назад