Сор по информатике 4 класс 2 четверть

1)var n,k: integer; begin   write('число:   ');   readln(n);   k: =0;   repeat     k: =k*10+n mod 10;     n: =n div 10;   until n=0;   writeln('новое число:   ',k); end. 2) var n,k,m: integer; begin  write('двоичное число:   ');   readln(n);   k: =1;   m: =0;   repeat    m: =m+k*(n mod 10);     n: =n div 10;     k: =k*2;   until n=0;   writeln('десятичное число:   ',m); end.

ответ:

PascalABC.NET:

beginvar a := ReadArrInteger(ReadInteger('Введите количество чисел:')); Println('Максимальное число, кратное 5:', a.Where(c->c mod 5 =0).Max);end.

Можно и в одну строчку, но тогда читабельность начинает страдать:

begin Println('Максимальное число, кратное 5:', ReadArrInteger(ReadInteger('Введите количество чисел:')).Where(c -> c mod 5 = 0).Max); end.Объяснение:

ReadArrInteger(n) /// Возвращает массив из n целых чисел, введённых с клавиатуры.

ReadInteger(s) /// Выводит s и возвращает целое число, введённое с клавиатуры.

Where(predicate) /// В нашем случае он возвращает только те элементы нашей последовательности, которые кратны 5.

Max /// Возвращает максимальное число последовательности.

Пример работо программы: