Написать программы: 1. на вход поступает последовательность - вопрос №95775621 от 0202991 24.11.2021 04:39

Question

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

0202991 · Answer

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.