стереть
Класс
8 9 10 11
Нужно авторизоваться
Нужно авторизоваться
Нужно авторизоваться
Нет аккаунта?
При наличии аккаунта на платформе можно
Введите больше 6 символов
Проблемы со входом?
Введи последние 4 цифры номера, с которого
поступит звонок. Трубку брать не нужно.
Повторный звонок через
сек.
Добро пожаловать!
Зарегистрируйся и получи Демо мастер-группы на 10 дней по любимым предметам бесплатно.
Добро пожаловать!
Как тебя зовут?
Введите не меньше 2 символов
Привяжем номер телефона
Введите не меньше 2 символов
Привяжем номер телефона
Повторный звонок через
30 сек.
Теперь нужно подтвердить номер - введи последние 4 цифры номера, с которого поступит звонок. Трубку брать не нужно
Введите не меньше 2 символов
Придумаем пароль
Почти закончили! Теперь нужно создать надежный пароль
Введите не меньше 2 символов
Немного о тебе
В какой класс ты переходишь?
Укажи, какие предметы будешь или хочешь сдавать
Введите не меньше 2 символов
На почту 12345@mail.ru отправлена ссылка для сброса пароля.
OK
Информатика

Задача по теме: "Программирование Сумма чисел"

Информатика
Задание 15 Программирование Сумма чисел
Подсказка
За подсказку ты получишь лишь половину баллов
Использовать
Автор
Крылов С.С., Чуркина Т.Е. Информатика основной государственный экзамен. Москва: Издательство "Национальное образование", 2023. — 144 с. Материалы публикуются в учебных целях
Просмотры
1381
banner-img

Напишите программу, которая в последовательности натуральных чисел определяет сумму чётных чисел, меньших 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.


На экзамене это задание принесло бы тебе 2/2 баллов.

Сообщение об ошибке

Расскажите, в каком месте допущена ошибка, мы как можно быстрее её исправим. Спасибо за обратную связь!

Здравствуйте!

Выберите информацию о себе ниже

pay-success-img

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

pay-un-success-img

Оплата не прошла

Попробуйте снова