
Задача по теме: "Программирование Сумма чисел"
Напишите программу, которая в последовательности натуральных чисел определяет сумму чётных чисел, меньших 30. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется чётное число, меньшее 30.
Количество чисел не превышает 1000. Введённые числа не превышают 30 000.
Программа должна вывести одно число: сумму чётных чисел, меньших 30.
Пример работы программы:
Входные данные | Выходные данные |
5 100 10 27 18 55 |
28 |
Решение:
Для решения задания напишем программу на языке Pascal, которая будет проверять введенные значения на правильность условия:
var n, i, a, sum: integer;
begin
readln(n);
sum:=0;
for i := 1 to n do
begin
readln(a);
if (a mod 2 = 0) and (a < 30) then sum:= sum+a;
end;
writeln(sum)
end.
Сообщение об ошибке
Расскажите, в каком месте допущена ошибка, мы как можно быстрее её исправим. Спасибо за обратную связь!

МГ | Pro | ProMax | |
Практика на платформе | |||
Отслеживание прогресса обучения | |||
Двухуровневое домашнее задание после каждого вебинара | |||
Все материалы составлены экспертом ЕГЭ | |||
Персональный менеджер | |||
Личный куратор | |||
Разбор ошибок личным куратором | |||
Еженедельные созвоны с куратором для закрытия индивидуальных пробелов | |||
Составление индивидуального расписания |

счёта
средств
подтверждено!
Теперь вы можете приступить
к следующему уроку
курса по математике
замены
Для смены номера телефона
мы отправили Вам код по СМС,
введите его в поле ниже.
Электронная почта
На почту придет чек об оплатеНажимая кнопку "купить", Вы выражаете своё согласие с офертой оказания услуг и принимаете их условия
Здравствуйте!
Выберите информацию о себе ниже
Электронная почта
На почту придет чек об оплатеНажимая кнопку "купить", Вы выражаете своё согласие с офертой оказания услуг и принимаете их условия

Оплата прошла успешно!
