Question

Программа паскаль,решите пожалуйста.

Answer 1

program raf105;

var

 a,b,c,k: real;

begin

 write('a = ');

 readln(a);

 write('b = ');

 readln(b);

 write('c = ');

 readln(c);

 if a*b*c <> 0 then k:= sqrt(a*b*c)

   else k:= (a+b+c) / 2;

 writeln('k = ',k);

end.

PascalABC