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

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

Определить, равны ли первая и последняя цифры заданного с клавиатуры числа.

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

textual
var n,p:integer;
begin
write('Введите целое число n=');
readln(n);
n:=abs(n);
p:=n mod 10;
while n>10 do n:=n div 10;
if p=n then write('Первая и последняя цифры равны')
else write('Первая и последняя цифры не равны')
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

14   голосов, оценка 3.714 из 5


СДЕЛАЙТЕ РЕПОСТ