Ответы
Ответ дал:
0
Программа перевода положительного числа в отрицательное, и на оборот
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.
Похожие вопросы
1 год назад
2 года назад
2 года назад
7 лет назад