Ответы на вопрос:
program xxx;
var n, c, d, e, k : integer;
begin
wtite ('введите 3-х значное число n =');
readln (n);
c : = n div 100;
d : = (n div 10) mod 10;
e : = n mod 10;
k: = 100*e + 10*d + c;
if n = k then write ('палиндром') else write('не палиндром')
end.
Популярно: Информатика
-
Rayanachechenka23.02.2021 16:46
-
В1и2к3т4о5р6и7я1112.11.2020 22:45
-
svfedunina27.04.2023 11:59
-
Ddaannjjdb27.01.2020 21:03
-
irinarassohina126.01.2021 00:38
-
cozycoat120.11.2022 14:29
-
natata2308123.06.2021 17:23
-
polina03310.12.2020 02:01
-
vbnmmkllpuuh28.01.2022 03:22
-
YerasylAmangeldi06.07.2022 14:55