Написать программу для проверки того, является ли введеное пользователем четырехзначное число палиндромом
227
395
Ответы на вопрос:
Var a,an,n: integer; begin a: =240000; an: =a; n: =0; while an< 3*a do begin n: =n+1; an: =an+an div 40; end; writeln('n = ',n); end. результат: n = 45
Популярно: Информатика
-
МастерФейк02.04.2021 13:01
-
Arinakap2207.01.2023 14:31
-
АлинаКравченко07.06.2022 15:23
-
messageman107.08.2020 16:27
-
Ra21M11.05.2023 08:42
-
Инга170226.05.2020 10:15
-
Yyyyyyyyy130.09.2021 00:22
-
565620029.07.2021 00:33
-
artemkatopchik24.10.2020 18:56
-
OneLoveAltezza19.07.2022 11:05