Ответы на вопрос:
Program g;
Var
a:integer;
begin
readln(a) ;
Begin
if a<0 then
Write(a*-1) end;
Begin
if a>0 then
Write(a*-1) end;
End.
Программа переводит положительное число в отрицательное, и наоборот
Популярно: Информатика
-
Santastiff66609.12.2022 04:48
-
eryana05.04.2021 04:18
-
azodanic1219.10.2022 01:23
-
zagariyolga06802.03.2021 21:46
-
FenteziV25.11.2020 16:04
-
илья194730.05.2023 22:53
-
SAVFOREVER08.07.2022 15:15
-
Денис111111111119127.12.2020 15:43
-
swetakorchagov13.05.2020 15:14
-
люблютебя431.03.2022 10:41