PascalABC.NET 3.2, сборка 1417 от 28.03.2017 Внимание! Если программа не работает, обновите версию!
begin var n:=ReadInteger('Введите двухзначное число:'); Writeln('Максимальная цифра ',max(n div 10, n mod 10)) end.
2. Школьное решения уровня ТурбоПаскаль 1983г.
var n,d,e,max:integer; begin Write('Введите двухзначное число: '); Read(n); d:=n div 10; e:=n mod 10; if d>e then max:=d else max:=e; Writeln('Максимальная цифра ',max) end.
PascalABC.NET 3.2, сборка 1417 от 28.03.2017
Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('Введите двухзначное число:');
Writeln('Максимальная цифра ',max(n div 10, n mod 10))
end.
2. Школьное решения уровня ТурбоПаскаль 1983г.
var
n,d,e,max:integer;
begin
Write('Введите двухзначное число: ');
Read(n);
d:=n div 10;
e:=n mod 10;
if d>e then max:=d
else max:=e;
Writeln('Максимальная цифра ',max)
end.
3. Пример работы обоих программ (одинаковый)
Введите двухзначное число: 37
Максимальная цифра 7