Question

Необходимо составить программу, которая меняет знак у числа. паскаль 7 класс​

Answer 1

Program z1;

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.