написать програму : даны трех действительные числы x y z , если число > 5 то надо его в квадратею зделатью.

1

Ответы и объяснения

2013-01-24T17:46:44+00:00

var

 x,y,z:Extended;

begin

 Read(x,y,z);

  if x>5 then x:=x*x;

  if y>5 then y:=y*y;

  if z>5 then z:=z*z;

 Write(x,' ',y,' ',z);

end.