Question

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

Помогите пожалуйста. Паскаль. Информатика.

Answer 1

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
Первая цифра не больше последней