Ануфрий
4 год назад
Дана последовательность чисел, заканчивающаяся нулем (ноль - признак окончания ввода). Напишите программу, которая находит сумму чисел, кратных 6 и заканчивающихся на 4.ПримерВвод Вывод124783540
ОТВЕТЫ
Natan
Oct 24, 2020
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.
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.
41
Смежные вопросы:
