Question

Написать программы:
1. На вход поступает последовательность натуральных чисел, заканчивающаяся числом 0 (0 - признак окончания последовательности). Все числа не превышают значение 65535. Программа должна вывести
Б) Максимальное число из этой последовательности
В) Минимальное число этой последовательности
Г) Количество чисел, последняя цифра которых - 7

Answer 1

PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018

Внимание! Если программа не работает, обновите версию!

begin

 var (max, min, k) := (-100000, 100000, 0);

 ReadSeqIntegerWhile(t -> t <> 0)

     .Foreach(t ->

     begin

       if t > max then max := t;

       if t < min then min := t;

       if t mod 10 = 7 then Inc(k)

     end);

 Writeln('min=', min, ', max=', max, ', искомое кол-во: ', k)

end.