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

Question

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

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
Первая и последняя цифры одинаковы

Comments

спасибо

---

Пожалуйста

---

давно занимался программированием, решил немного освежить память

---

Тоже полезное занятие)

---

только Паскаль с тех пор ушел очень далеко... по крайней мере, в версии PascalABC.NET

---

Сейчас можно и так написать:

---

begin
var s:=ReadInteger('Введите натуральное число: ').ToString;
var c1:=s[1];
var cn:=s[s.Length];
if c1>cn then Writeln('Первая цифра больше последней')
else
if c1 else Writeln('Первая и последняя цифры одинаковы')
end.