Составить программу, которая считывает число. если оно неотрицательное, извлекает из него корень, в противном случает выводит соответсвующее сообщение. паскаль

sofirzhk sofirzhk    1   04.10.2019 18:00    0

Ответы
daryalife1998 daryalife1998  09.10.2020 20:09

var number: real;

begin

 readln(number);

 if number > 0 then

   writeln(sqrt(number))

 else writeln('Число меньше 0!');

end.

ПОКАЗАТЬ ОТВЕТЫ
snoman snoman  09.10.2020 20:09

Var A:real;

Begin

Write('Введите число: ');ReadLn(A);

if A>=0 then A:=sqrtA

else write(a) ;

Write(A);

End.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика