Дано два числа типа integer. найти абсолютное значение разности их квадратов. язык паскаль

Question

Информатика: Дано два числа типа integer. найти абсолютное значение разности их квадратов. язык паскаль

flak202 · Accepted Answer

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

MOGZ ответил