Даны три числа a b c составьте пограмму которая вычислит квадратный корень только тех чисел которые положительные

1

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

2013-03-01T17:25:20+04:00

Program ncd;

uses crt;

var a,b,c:real;

begin

clrscr;

readln(a,b,c);

if a>0 then writeln(sqrt(a));

if b>0 then writeln(sqrt(b));

if c>0 then writeln(sqrt(c));

readln;

end.