Дана последовательность чисел, заканчивающаяся нулем (ноль - признак окончания ввода). Напишите программу, которая находит сумму чисел, кратных 6 и заканчивающихся на 4. Пример Ввод Вывод 1 24 78 3 54 0
Дана последовательность чисел, заканчивающаяся нулем (ноль - признак окончания ввода). Напишите программу, которая находит сумму чисел, кратных 6 и заканчивающихся на 4.
Пример
Ввод Вывод
1
24 78
3
54
0
Гость
Ответ(ы) на вопрос:
ГостьVar i,s:integer;
begin
s:=0;
readln(i);
while i<>0 do
begin
if (i mod 6=0) and (i mod 10=4) then
s:=s+i;
readln(i);
end;
writeln(s);
end.
ГостьProgram n1;
var a,sum: integer;
begin
readln(a);
while a<>0 do
begin
if (a mod 6=0) and (a mod 10=4) then sum:=sum+a;
readln(a);
end;
writeln(sum);
end.
Не нашли ответ?
Похожие вопросы