Подсчитать сумму положительных четных чисел, не превосходящих 344 - Pascal ABC

Формулировка задачи:

Напишите программу, которая в последовательности целых чисел определяет их количество и подсчитывает сумму положительных четных чисел, не превосходящих 344. Программа получает на вход целые числа, количество введенных чисел неизвестно, последовательность чисел заканчивается числом ноль (ноль – признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Введенные числа по модулю не превышают 30000.

Код к задаче: «Подсчитать сумму положительных четных чисел, не превосходящих 344 - Pascal ABC»

textual
N:=0; Sum:=0;
Repeat
  Readln(A);
  If A<>0 then Inc(N);
  If (A>0) and (A<=344) and (not Odd(A)) then Sum:=Sum+A;
Until (A=0);
Writeln(N,'  ',Sum);
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

7   голосов, оценка 3.857 из 5


СДЕЛАЙТЕ РЕПОСТ