<span>Программа
begin
var n := ReadlnInteger;
var Data := ArrGen(n, x -> ReadlnString.ToWords);
var MaxScore := Data.Max(x -> x[2].ToInteger);
Data.Where(x -> x[2].ToInteger = MaxScore).Select(x ->
x.JoinIntoString).Print(NewLine)</span>
end.
Ввод:
5
Георгий Сазонов 65
Матвей Панфилов 39
Василий Колобов 85
Иван Кириллов 72
Юрий Гришин 85
Вывод:
Василий Колобов 85
Юрий Гришин 85
810 = 10002,
910 = 10012,
1010 = 10102,
1110 = 10112.
Из чисел 9 и 10 выбираем число 10, поскольку оно является наибольшим.
Program Kvadrat;
var a:real;
begin
writeln('Введите длину стороны квадрата');
readln(a);
writeln('Площадь квадрата = ', sqr(a));
end.
Var n:integer;
begin
write('n = ');
readln(n);
writeln('цифры числа:');
writeln(n div 10);
writeln(n mod 10);
end.
Пример:
n = 38
цифры числа:
3
8