Deva0revolution
24.05.2020 13:41

Напишите программу, которая в последовательности натуральных чисел, заканчивающейся числом 0, определяет количество чисел, оканчивающихся на 4 и не превосходящих 100, а также наименьшее из чисел, больших 100, Если в последовательности нет чисел, больших 100, вывести только количество чисел, оканчивающихся на 4 и не превосходящих 100. без использования списков массивов
программа на pascal
и ещё блок схему​

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
Dasha07Dasha
26.12.2020 11:49

//PascalABC.NET 3.4.2

begin

ReadSeqIntegerWhile(x -> x <> 0).Where(x -> (x mod 6 = 0) and (x mod 10 = 4)).Sum.Print;

end.

Объяснение:

0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота