Ответы на вопрос:
№1 (написанная на паскале)
uses crt; vara, b, c: real; beginreadln (a, b, c); a: = a*a; b: = b*b; c: = c*c; if (a+b=c) or (b+c=a) or (c+a=b)then writeln ('mozhno') else writeln('oshipka postroenie'); readkey; end.
№2.(написанная на паскале)
uses crt; vara : integer; beginreadln (a); if (a mod 13 =0) then writeln ('da') else writeln ('net'); readkey; end.
Популярно: Информатика
-
Keyanplay105.11.2020 04:24
-
vlad0910198620.11.2022 01:19
-
Appolinaria0621.02.2021 03:27
-
baten27.08.2021 06:27
-
chelsi0928.06.2023 10:24
-
girlgood202.09.2021 17:43
-
12095494392103.04.2021 17:02
-
dudinaksusha0620.04.2021 10:42
-
nika34424533531.07.2022 14:58
-
фокс3617.09.2021 05:56