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

Question

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

Comments

Если число отрицательное, то программа должна сделать его положительным и наоборот?

---

да

Answer 1

Program z1;

Var

a:integer;

Begin

Readln(a) ;

Begin

If a<0 then</p>

Write(a*-1) end;

Begin

if a>0 then

write(a*-1) End;

End.

Comments

Спасибо огромное!