Ответы на вопрос:
//pascal abc.net версия 2.2 сборка 790 var s: string; i,s1: integer; begin; readln(s1); //вводим число str(s1,s); for i: =1 to length(s) div 2+length(s) mod 2 do {цикл от начала и до середины/центра в зависимости от чётности} begin; if s[i]< > s[length(s)+1-i] then {если 1 символ не равен последнему, второй-предпоследнему и т.д.} begin; writeln('не палиндром'); exit; //если это условие хоть раз верно-программа завершается end; end; writeln('палиндром'); //если условие не разу не оказалось верным end.пример ввода: 121пример вывода: палиндром
Популярно: Информатика
-
TRIPLEN24.03.2023 08:23
-
Алуа22030605.06.2020 23:57
-
Pixelia17.02.2022 09:58
-
НЕЗНАЙКА12398706.05.2023 19:42
-
джамшутик200502.08.2022 10:46
-
juliajulia00525.03.2022 01:04
-
T1shka13627.02.2021 06:31
-
фваывнгар27.05.2023 17:32
-
ghenek200410.01.2022 16:07
-
sofia200441708.06.2023 21:47