Составить программу, которая подсчитывает количество палиндромов среди натуральных четырехзначных чисел. pascal
126
215
Ответы на вопрос:
Var i, k: integer; begin k: =0; for i: =1000 to 9999 do if (i div 1000 = i mod 10) and (i div 100 mod 10 = i mod 100 div 10) then inc(k); writeln(k); end.
Качайте corel draw - там нарисуете в растровой графике в paint - в векторной. все просто: )
Популярно: Информатика
-
Аартём119.05.2022 16:28
-
kiki000404.04.2022 16:03
-
Kolelove05009.05.2020 03:04
-
MCbelko10.05.2021 23:31
-
lisovasvitlana1516.02.2022 01:30
-
9208322.08.2021 10:22
-
villa200314.06.2022 15:10
-
Nikoletta255029.05.2022 05:46
-
MILKovka26.09.2022 16:06
-
zenfnfsj24.11.2021 14:38