Ответы
Ответ дал:
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 год назад
1 год назад
6 лет назад