Ответы на вопрос:
Var q1,q2,q3,n: integer; beginwrite('введите трехзначное число n '); read(n); q3: = n mod 10; q2: = n div 10; q2: = q2 mod 10; q1: = n div 100; writeln(q1: 4,q2: 4,q3: 4); if q2 = q1*q3 thenwrite('цифра, расположенная в середине числа, равна произведению двух крайних цифр')elsewrite('цифра, расположенная в середине числа, не равна произведению двух крайних цифр'); end.
Популярно: Информатика
-
simalilova28.05.2020 22:08
-
Vilka200828.03.2021 20:12
-
просточеловек2017104.11.2022 18:30
-
lera7856701.05.2022 03:23
-
oleksintetyana09.01.2023 07:27
-
krisdenya200524.06.2020 14:40
-
даня12504.01.2022 11:27
-
alekslisalove08.04.2023 10:00
-
Vovachka108.04.2021 02:30
-
qwerty66525.11.2020 10:18