Напишите программу, которая в последовательностинатуральных чисел определяет сумму

Напишите программку, которая в последовательности
естественных чисел определяет сумму трёхзначных чисел, кратных 4.
(0 признак окончания ввода, не входит в последовательность).
Количество чисел не превосходит 1000. Введённые числа не превосходят
30 000.
Pascal

Задать свой вопрос
1 ответ

var a,sum:integer;

begin

read(a);

while(alt;gt;0)do begin

if(a mod 4=0)and(agt;99)and(alt;1000)then sum:=sum+a;

read(a);

end;

write(sum);

end.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт