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

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

Question

Информатика

Автоном

22 января, 01:12

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

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

+3

Ответы (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.