составить программу для вычисления значения y по формуле Y = квадратный корень из x заданного с клавиатуры, если число отрицательное, то вывидите сообщение, что значение Y не существует

Question

Информатика

Симеон

26 августа, 21:31

составить программу для вычисления значения y по формуле Y = квадратный корень из x заданного с клавиатуры, если число отрицательное, то вывидите сообщение, что значение Y не существует

+4

Ответы (2)

Знаете ответ на вопрос?

Флавий · Answer 1

program kvadr;

var x, y: real;

begin

write ('введите значение x') ;

read (x) ;

if x > 0

then begin Y:=sqrt (x) ;

end;

write (Y)

else write ('у не существует')

end.

Дареша · Answer 2

var x, y:real;

begin

readln (x) ;

if x<0 then writeln ('Oshibka') else begin y:=sqrt (x) ; writeln ('y=', y) ; end;

end.