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

Question

Информатика

Мишура

16 сентября, 16:01

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

+1

Ответы (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.