Олег
6 год назад
Даны три числа а,в,с.составить программу,котораЯ вычислит квадратный корень только положительных чисел
ОТВЕТЫ
Meallel
Jul 9, 2019
Паскаль:
Program one;
Var a,b,c:real;
Uses CRT; //можно не писать, команда подключает консоль
begin
Writeln(Введите 3 числа);
Readln(a,b,c);
If agt;=0 then writeln(sqrt(a));
If bgt;=0 then writeln(sqrt(b);
If cgt;=0 then writeln(sqrt(c);
end.
Program one;
Var a,b,c:real;
Uses CRT; //можно не писать, команда подключает консоль
begin
Writeln(Введите 3 числа);
Readln(a,b,c);
If agt;=0 then writeln(sqrt(a));
If bgt;=0 then writeln(sqrt(b);
If cgt;=0 then writeln(sqrt(c);
end.
94
