Написать программу которая подтверждает числа полиморфы
Написать программу которая подтверждает числа полиморфы
Ответ(ы) на вопрос:
Гость
//PascalABC.NET 3.1 сборка 1200
begin
var n := ReadInteger('n =');
if n < 0 then begin
writeln('Число отризательное и не может быть перевертышем');
Halt;
end;
var s := n.ToString();
if ReverseString(s) = s then
writeln('Перевертыш')
else writeln('Не перевертыш');
end.
Не нашли ответ?
Похожие вопросы