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

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

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

Напишите программу, которая в последовательности натуральных чисел определяет сумму чисел, не превосходящих 16, в записи которых нет цифры 5. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, не превосходящее 16, в записи которого нет цифры 5.

Количество чисел не превышает 1000. Введённые числа не превышают 30 000.

Программа должна вывести одно число: сумму чётных чисел, меньших 30.

Пример работы программы:

Входные данные Выходные данные

5

15

1

5

13

44

14
Решение
single-task__solution-banner

Решение:

Для решения задания напишем программу на языке Pascal, которая будет проверять введенные значения на правильность условия:

var n, i, a, sum: integer;
begin
  readln(n);
  sum:=0;
  for i := 1 to n do
  begin
    readln(a);
    if (a <= 16) and (a mod 10 <> 5) then sum:= sum+a;
  end;
  writeln(sum)
end.


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

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

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

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

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

pay-success-img

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

pay-un-success-img

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

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