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

2

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

  • Kitsu
  • почетный грамотей
2012-11-26T15:00:48+00:00

var x,y:real;

begin

readln(x);

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

end.

2012-11-26T15:06:14+00:00

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.