Даны 3 числа.Возвести в квадрат неотрицательные,а отрицательные заменить их модулем.8 класс.Паскаль.Заранее спасибо
Answers & Comments
sarkiss
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.
Answers & Comments
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.
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.