Ответы на вопрос:
Var a: integer; begin write('a= '); readln(a); writeln('ploschad= ',sqr(a)) end.
Var x, y: integer; begin readln(x); if (x < 0) then writeln ('y = -1'); if (x = 0) then writeln ('y = 0') else writeln ('y = 1') end.
Популярно: Информатика
-
werty13pl1624.12.2021 21:25
-
Marinatarina25.10.2022 03:22
-
pavlov020209.10.2020 07:15
-
аноним1234556780808.01.2020 23:24
-
hjr5605.09.2021 21:17
-
emir0722.01.2020 17:58
-
anorbaeva24.12.2020 08:09
-
fvrvdv28.06.2023 22:40
-
ekaterinaring201719.01.2022 09:46
-
bobr631.01.2021 11:40