Дано натуральное число. Верно ли, что первая цифра больше последней. Вывести сообщение на экран.
Помогите пожалуйста. Паскаль. Информатика.
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
Первая цифра не больше последней
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
