Question

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

Answer 1

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.