Ответы на вопрос:
Ядусаю ок право уткина епутеауошплкипсшкааерворомоотломл оуоаоеуктьувпул ничего дома нету
Var x, y : integer; begin writeln ('введите цело число: '); readln (x); if x> 0 then y: =1 else if (x=0) then y: =0 else y: =-1; writeln ('y = ',y); end.
Популярно: Информатика
-
idknotforlong11.11.2022 18:08
-
думка313.08.2021 15:02
-
PomogiteDimePleaz16.02.2023 02:04
-
Юль4ик1112.02.2022 01:38
-
babykitten5002p08hdk15.04.2021 00:15
-
TheEasyCloud30.03.2021 12:48
-
Daniil226328.02.2020 19:17
-
bogdanka1503p08ifa29.11.2021 06:35
-
Amid0517.01.2021 08:46
-
катюшка31518.12.2021 11:22