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

Question

Информатика

Светланыч

4 декабря, 18:26

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

+4

Ответы (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

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