Дано натуральное число N (1<=N<=10000). Требуется написать программу, определяющую для N, какая цифра больше - первая или последняя.

Question

Информатика

Мироша

28 марта, 15:28

Дано натуральное число N (1<=N<=10000). Требуется написать программу, определяющую для N, какая цифра больше - первая или последняя.

+1

Ответы (1)

Знаете ответ?

Петяха · Answer 1

Var

s:string;

c1, cn:char;

n:integer;

begin

Write ('Введите натуральное число: ') ; Read (n) ;

Str (n, s) ;

c1:=s[1];

cn:=s[Length (s) ];

if c1>cn then Writeln ('Первая цифра больше последней')

else

if c1
else Writeln ('Первая и последняя цифры одинаковы')

end.

Тестовые решения

Введите натуральное число: 362336

Первая цифра меньше последней

Введите натуральное число: 7341423

Первая цифра больше последней

Введите натуральное число: 4624

Первая и последняя цифры одинаковы