Предмет: Информатика,
автор: zhannka00
Напишите программу для PascalABC срочно!
Дано 5-значное число. Если оно палиндром, то вывести 0, если нет-1
Ответы
Автор ответа:
0
Var
i: string;
Begin
Writeln('Введите число');
Readln(i);
if ((i[1]=i[5]) and (i[2]=i[4])) then writeln('0') else writeln('1');
End.
i: string;
Begin
Writeln('Введите число');
Readln(i);
if ((i[1]=i[5]) and (i[2]=i[4])) then writeln('0') else writeln('1');
End.
Автор ответа:
0
// PascalABC.NET 3.0, сборка 1156 от 30.01.2016
begin
var s:=ReadInteger('n=').ToString;
if s=s.Inverse then Writeln(0) else Writeln(1)
end.
begin
var s:=ReadInteger('n=').ToString;
if s=s.Inverse then Writeln(0) else Writeln(1)
end.
Автор ответа:
0
Возможно это лишнее, но предложенная программа проверяет на "палиндромность" целые числа любой допустимой разрядности, а не только пятизначные.
Похожие вопросы
Предмет: Русский язык,
автор: milana493
Предмет: Математика,
автор: marzhanamanzholll
Предмет: Қазақ тiлi,
автор: irhinnikita214
Предмет: Математика,
автор: смешарик987
Предмет: Математика,
автор: Lerochkamirosh