Ответы на вопрос:
Var i, a, b, n, n2, j: longint; s: string; flag: boolean; begin write('введите натуральное число больше 11: '); readln(a); if a < = 11 then writeln('11 - первое симметричное число') else begin str(a, s); n : = length(s); n2 : = n div 2; flag : = true; i : = 1; repeat flag : = (s[i] = s[n - i + 1]); i : = i + 1 until (not flag) or (i > n2); if flag then write('число симметричное') else write('число несимметричное') end; end. тестовое решение: введите натуральное число больше 11: 123454321 число симметричное
Популярно: Информатика
-
жанат1711.02.2023 01:33
-
mlpfim200419.08.2022 22:09
-
СофьяШафоростова10.06.2021 17:06
-
sofa37204.03.2020 06:48
-
dary09007.02.2022 09:17
-
sabina30021.08.2022 00:46
-
canimzoo10.03.2020 08:56
-
val4019.01.2021 14:42
-
sahin12332119.02.2022 00:22
-
егорбаглаев1125.06.2020 04:37