Даны целые числа а,b,c.Сменить знак каждого числа и вывести результат ** экран!!!!...

Question

Даны целые числа а,b,c.Сменить знак каждого числа и вывести результат на экран!!!!
ПОЖАЛУЙСТА ПОМОГИТЕ

Answer 1

Var a, b, c: Integer;
begin
readln(a);
readln(b);
readln(c);
if a>0 then a:= (a-(a*2)) else a:= Abs(a);
if b>0 then b:= (b-(b*2)) else b:= Abs(b);
if c>0 then c:= (c-(c*2)) else c:= Abs(c);
writeln('a = ',a, ', b = ', b, ', c = ', c);
end.

Comments

спасибоооо))))))))))))))