Определить, совпадают ли в числе вторая и последняя цифры - Pascal ABC

Формулировка задачи:

Нужно переделать код так чтобы он при вводи четырех чисел определял совпадают ли в нем вторая и последняя.
uses crt;
var n,a,b:integer;
begin
write('n - ');
read(n);
a:=n mod 10;
b:=n div 1000;
if a=b then
write('YES')
else
write('NO');
end.

Код к задаче: «Определить, совпадают ли в числе вторая и последняя цифры - Pascal ABC»

textual
uses crt;
var n,a,b:integer;
begin
write('n - ');
readln(n);
a:=n mod 10;
b:=n div 100 mod 10;
if a=b then write('YES')
else write('NO');
end.

7   голосов, оценка 4.000 из 5


СОХРАНИТЬ ССЫЛКУ