Опубликовано 5 лет назад по предмету Информатика от zhannka00

Напишите программу для PascalABC срочно!
Дано 5-значное число. Если оно палиндром, то вывести 0, если нет-1

Ответ

Ответ дан Аккаунт удален

Var
i: string;
Begin
Writeln('Введите число');
Readln(i);
if ((i[1]=i[5]) and (i[2]=i[4])) then writeln('0') else writeln('1');
End.
Ответ

Ответ дан Аккаунт удален

// 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.
1. Ответ
  
  Ответ дан Аккаунт удален
  
  Возможно это лишнее, но предложенная программа проверяет на "палиндромность" целые числа любой допустимой разрядности, а не только пятизначные.

Самые новые вопросы

Другие предметы - 4 года назад

Сочинение-рассуждение. прочитайте текст. есть у меня внучка. однажды она говорит: — у веры в субботу день рождения. она

Другие предметы - 4 года назад

Л.н. толстой. как боролся русский богатырь как сказал иван о своей силе? найдите ответ в тексте. запишите.

История - 4 года назад

Кто такой мильтиад и какова его роль в победе над персами?

История - 4 года назад

Какие примеры н. м. карамзин использует для разъяснения пользы новой системы престолонаследия? согласны ли вы с позицией

География - 4 года назад

Дополните схему. она поможет вам лучше усвоить содержание §1.: 1 что изучает география 2 с помощью чего 3 зачем изучают