Напишите программу, которая в последовательности
натуральных чисел определяет сумму трёхзначных чисел, кратных 4.
(0 – признак окончания ввода, не входит в последовательность).
Количество чисел не превышает 1000. Введённые числа не превышают
30 000.
Pascal
Ответы на вопрос
Ответил nistratov7
0
var a,sum:integer;
begin
read(a);
while(a<>0)do begin
if(a mod 4=0)and(a>99)and(a<1000)then sum:=sum+a;
read(a);
end;
write(sum);
end.
Новые вопросы
Русский язык,
2 года назад
Английский язык,
2 года назад
География,
7 лет назад
Алгебра,
7 лет назад