Var n:longint; s:string; begin Write('Введите натуральное число: '); Read(n); Str(n,s); if s[1]>s[Length(s)] then Writeln('Первая цифра больше последней') else Writeln('Первая цифра не больше последней') end.
Тестовое решение: Введите натуральное число: 526324 Первая цифра больше последней
Введите натуральное число: 3783 Первая цифра не больше последней
n:longint;
s:string;
begin
Write('Введите натуральное число: '); Read(n);
Str(n,s);
if s[1]>s[Length(s)] then Writeln('Первая цифра больше последней')
else Writeln('Первая цифра не больше последней')
end.
Тестовое решение:
Введите натуральное число: 526324
Первая цифра больше последней
Введите натуральное число: 3783
Первая цифра не больше последней