Написать программы:1. На вход поступает последовательность естественных чисел,
Написать программки:
1. На вход поступает последовательность естественных чисел, кончающаяся числом 0 (0 - признак окончания последовательности). Все числа не превосходят значение 65535. Программка должна вывести
Б) Максимальное число из этой последовательности
В) Минимальное число этой последовательности
Г) Количество чисел, последняя цифра которых - 7
PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018
Внимание! Если программка не работает, обновите версию!
begin
var (max, min, k) := (-100000, 100000, 0);
ReadSeqIntegerWhile(t -gt; t lt;gt; 0)
.Foreach(t -gt;
begin
if t gt; max then max := t;
if t lt; min then min := t;
if t mod 10 = 7 then Inc(k)
end);
Writeln('min=', min, ', max=', max, ', разыскиваемое кол-во: ', k)
end.
-
Вопросы ответы
Статьи
Информатика
Статьи
Экономика.
Экономика.
Русский язык.
Разные вопросы.
Математика.
Разные вопросы.
Математика.
Химия.
Русский язык.
Геометрия.