Question

1) Даны три числа. Возвести в квадрат те из них, значение которых отрицательны и найти их сумму.

Answer 1

Ответ:

var a,b,c:longint;

begin

read(a,b,c);

if a<0 then

a:=sqr(a);

if b<0 then

b:=sqr(b);

if c<0 then

c:=sqr(c);

write(a,' ',b,' ',c);

end.

Объяснение: