Question

Написать программу для решения задачи: Сравнить первую и последнюю цифру натурального четырёхзначного числа n. На экране должен появиться запрос на ввод числа и результат решения задачи, например 1) вводится число 1475, выводится «первая цифра меньше последней: 1<5». 2) вводится число 3452, выводится «первая цифра больше последней: 3>2». 3) вводится число 7457, выводится «первая цифра равна последней: 7=7»

Answer 1

var n:integer;

begin

write('Введите 4-х значное число: ');

readln(n);

if n div 1000 = n mod 10 then write('Первая цифра равна последней: ',n div 1000,'=',n mod 10)

else if n div 1000 > n mod 10 then write('Первая цифра больше последней: ',n div 1000,'>',n mod 10)

else write('Первая цифра меньше последней: ',n div 1000,'<',n mod 10)

end.