Дано натуральное число. Выяснить, является ли оно палиндромом ("перевертышем"), т. е. числом, десятичная запись которого читается одинаково слева направо и справа налево.

Помогите написать на паскале

Question

Информатика

Ксена

27 ноября, 08:44

Дано натуральное число. Выяснить, является ли оно палиндромом ("перевертышем"), т. е. числом, десятичная запись которого читается одинаково слева направо и справа налево.

Помогите написать на паскале

+4

Ответы (1)

Знаешь ответ?

Армен · Answer 1

Program gt;

var a, b, i, q, l:integer;

begin

readln (a);

l:=a; b:=0;

while a>0 do

begin

q:=a mod 10;

b:=b*10+q;

a:=a div 10;

end;

if (l=b) then writeln ('yes') else writeln ('no');

end.