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

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

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

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

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

Программа должна вывести одно число: сумму чисел, не оканчивающихся на 3 и не превышающих 25.

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

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

4

13

26

24

1

 

25
Решение
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 mod 10 <> 3) and (a <= 25) then sum:= sum+a;
  end;
  writeln(sum)
end.


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

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

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

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

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

pay-success-img

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

pay-un-success-img

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

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