Дано двузначное число. Выяснить, какая из его цифр является наибольшей. вывести наибольшую цифру на экран.Pascal

Вопрос школьника по предмету Информатика

Дано двузначное число. Выяснить, какая из его цифр является наибольшей. вывести наибольшую цифру на экран.Pascal

Ответ учителя по предмету Информатика

1. Современное решение

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