Question

Даны 3 числа.Возвести в квадрат неотрицательные,а отрицательные заменить их модулем.8 класс.Паскаль.Заранее спасибо​

Answer 1

Var a,b,c : integer;
Begin
Read(a,b,c);
If a>= 0 then a:= a*a else a:= abs(a);
If b>= 0 then b:= b*b else b:= abs(b);
If c>= 0 then c:= c*c else c:= abs(c);
Write(a,b,c);
End.

Answer 2

Var

a,b,c : integer;

Begin

Read(a,b,c);

If a>= 0 then a:= sqr(a)

else a:= abs(a);

If b>= 0 then b:= sqr(b)

else b:= abs(b);

If c>= 0 then c:= sqr(c)

else c:= abs(c);

Write(a,b,c);

End.