Ответы на вопрос:
Var a,b: integer; begin write('введите два числа -> '); readln(a,b); if ((a> =100) and (a< =999) and ((a mod 3)=0) or (b> =100) and (b< =999) and ((b mod 3)=0)) then writeln('yes') else writeln(sqr(a),', ',sqrt(b)) end. тестовые решения: введите два числа -> 65 360 yes введите два числа -> 152 47 23104, 6.85565460040104
Популярно: Информатика
-
влад231822.06.2021 23:34
-
seee190224.02.2022 18:47
-
victorianna0306.07.2020 05:32
-
tkstkn26.08.2020 21:23
-
marat523017.01.2020 08:54
-
MatveyS00723.05.2023 17:25
-
licicha06.01.2023 01:16
-
annuwka108.02.2023 04:29
-
ира102924.01.2021 22:56
-
HvashevskiiDenis200608.05.2021 18:51