Составить программу, которая считывает число. Если оно неотрицательное, извлекает из него корень, в противном случает выводит соответсвующее сообщение. ПАСКАЛЬ
Ответы
Ответ дал:
0
var number: real;
begin
readln(number);
if number > 0 then
writeln(sqrt(number))
else writeln('Число меньше 0!');
end.
Ответ дал:
0
Почему такая оценка? Чем не понравилась программа?
Ответ дал:
0
Var A:real;
Begin
Write('Введите число: ');ReadLn(A);
if A>=0 then A:=sqrtA
else write(a) ;
Write(A);
End.
Вас заинтересует
1 год назад
1 год назад
2 года назад
2 года назад
7 лет назад
7 лет назад
8 лет назад