Регистрация
Войти
Стать экспертом Правила
Информатика

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

ОТВЕТЫ

//PascalABC.NET 3.4.2

begin

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

end.

845
Контакты
Реклама на сайте
Спрошу
О проекте
Новым пользователям
Новым экспертам