Question

помогите составить программу на языке паскаль

Вводится натуральное число Х (Х>9).
1. определить, совпадают ли по значению первая и последняя цифры..
например, Ввод: 727 Вывод: Число начинается и заканчивается цифрой 7
Ввод 123 Вывод Первая и последняя цифры не совпадают.

Answer 1

var a,b,c:integer;
begin
write('a = '); readln(a);
b:=a mod 10;
c:=a;
while c>9 do c:=c div 10;
if (a>9) 
 then if b=c
        then writeln('Число начинается и заканчивается цифрой ',c)
        else writeln('Первая и последняя цифры не совпадают')
 else writeln('Число < 10');
end.

Пример:
a = 65478
Первая и последняя цифры не совпадают

Answer 2

прога в приложении============

883fa3dfa836f5865556f5e5761badf4.pas