Даны 3 числа. Возведите в квадрат те из них значения которых отрицательны. (записать...

Question

Даны 3 числа. Возведите в квадрат те из них значения которых отрицательны. (записать программу на языке паскаль).

Answer 1

Var a,b,c:integer;
begin
readln(a,b,c);
if a < 0 then a:=a*a;
if b < 0 then b:=b*b;
if c < 0 then c:=c*c;
writeln(a,b,c);
end.

Answer 2

Var a,b,c:longint;
begin
read(a,b,c);
if a<0 then<br>a:=sqr(a);
if b<0 then<br>b:=sqr(b);
if c<0 then<br>c:=sqr(c);
write(a,' ',b,' ',c);
end.