Напишите программу для pascalabc ! дано 5-значное число. если оно палиндром, то вывести 0, если нет-1
st1nk1n1p
3
16.07.2019 22:00
0
Другие вопросы по теме Информатика
Комарова23
20.10.2020 20:47
Sapff1ra
30.05.2019 08:50
dikozzz
30.05.2019 08:50
295f9gh
30.05.2019 08:50
0m1ib6c
30.05.2019 08:50
svetakurilova
21.12.2020 23:21
kurotetsu666
21.12.2020 23:21
Marishkakey
21.12.2020 23:22
tetyanavasil
21.12.2020 23:23
Популярные вопросы
- (я незнаю правильно ли в учебнике)Я не понимаю задание и что в нем делать ...
3 - Х 10.1. Если у животного имеется орган женской полосистемы, изображённый на рисунке...
1 - Конкуренто страны определяется её энерго- и транспортоёмкостью её территории. Как...
3 - Найди площадь полной поверхности и объем прямого параллелепипеда.Стороны основания...
3 - Какую роль сыграл ресурсный потенциал России в формировании международной специализации...
1 - о каких духовных ценностях говорят народные пословицы и поговорки 1) терпение и...
2 - Я не все задания, хотя бы те которые сможете или хотите. пазязя. ...
3 - Кто главный герой главы 16 в которой рю уходит безвозратно...
1 - ?? Брати Лев яче серце 1що ви дізнались про родину левів? 2Розкажіть про стосунки...
1 - Пытанні па аповесці У. Караткевіча Дзікае паляванне караля Стаха Варыянт 111. З...
3
begin
var s:=ReadInteger('n=').ToString;
if s=s.Inverse 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.