20.2 Напишите программку которая в последовательности натуральных чисел вычисляет сумму
20.2 Напишите программку которая в последовательности естественных чисел вычисляет сумму трехзначных чисел кратных 4 программа получает на вход естественные числа количество введённых чисел безызвестно последовательность чисел кончается числом 0 0 признак окончания ввода не заходит в последовательность количество чисел не превосходит 20 введённые числа не превосходят 1500. Программа обязана вывести одно число: сумму трехзначных чисел, кратных четырем.
Задать свой вопрос
program raf105;
var a,sum: integer;
begin
writeln('Вводите числа по очереди');
writeln('Чтоб закончить введите 0');
repeat
if (a gt;= 100) and (a lt;= 999) and (a mod 4 = 0)
then sum:= sum+a;
readln(a);
until a=0;
writeln('Сумма трёхзначных чисел кратных четырём: ',sum);
end.
PascalABC 3.4.2
-
Вопросы ответы
Статьи
Информатика
Статьи
Математика.
Разные вопросы.
Разные вопросы.
Математика.
Разные вопросы.
Математика.
Физика.
Геометрия.
Разные вопросы.
Обществознание.