Предмет: Информатика, автор: 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.
Автор ответа: Аноним
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.

Автор ответа: Аноним
0
Возможно это лишнее, но предложенная программа проверяет на "палиндромность" целые числа любой допустимой разрядности, а не только пятизначные.
Похожие вопросы
Предмет: Русский язык, автор: milana493
Предмет: Математика, автор: Lerochkamirosh