Реклама
Koshka245
5 дней назад

uses crt;
var a,s,d: word;
begin
writeln(‘Введите число’);
readln(a);
s:=0;d:=a;
while d>0 do
begin
s:=s*10+d mod 10;
d:=d div 10;
end;
if a=s then write(‘Является’)
else
write(‘Не является’);
end.

без блок-схемы.
Войти чтобы добавить комментарий
Ответы и объяснения
Я
·
новичок
Знаешь ответ? Добавь его сюда!
Реклама
