Даны три числа а,в,с.составить программу,котораЯ вычислит квадратный корень только положительных чисел
Паскаль: Program one; Var a,b,c:real; Uses CRT; //можно не писать, команда подключает консоль begin Writeln('Введите 3 числа'); 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); end.