Question

Составить программу в Паскале
Вводиться вещественное число.Если оно не отрицательное ,то найти и вывести его корень квадратный ,в противном случае-вывести текст «нельзя извлечь корень»
Например :введите число 16
Корень квадратный из 16=4

Answer 1

Ответ:

var a, b, i:Integer;

begin

write('Введите число: ');

readln(i);

if (i >= 0) then

writeln('Корень квадратный из ', i, ' = ', sqrt(i))

else

writeln('Нельзя извлечь квадратный корень!');

end.