Составить программу для паскаля. Задание: с клавиатуры вводится любое число х, если х>=0 найти корень, иначе вывести текст нет корня

1

Ответы и объяснения

  • Kitsu
  • почетный грамотей
2013-01-19T12:11:20+00:00

var x:real;

begin

readln(x);

if x>=0 then writeln(sqrt(x)) else writeln('net kornya');

end.