Предмет:
ИнформатикаАвтор:
montgomeryjacobsonАвтор:
girldltdbegin
var n := readinteger();
for var i := 1 to n.ToString.Length div 2 do
begin
if (n.ToString[i] <> n.ToString[n.ToString.Length - i + 1]) then
begin
write('Нет');
exit;
end;
end;
write('Перевёртыш');
end.
Автор:
virginiaos4kДобавить свой ответ
Предмет:
ФизикаАвтор:
rebecal9foОтветов:
Смотреть
Предмет:
БиологияАвтор:
kelseylaatОтветов:
Смотреть
Предмет:
МатематикаАвтор:
méndez1Ответов:
Смотреть