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

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

Задать свой вопрос
2 ответа

program kvadr;

var x, y: real ;

begin

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

read(x);

if x gt; 0

then begin Y:=sqrt(x) ;

end;

write(Y)

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

end.

var x,y:real;

begin

readln(x);

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

end.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт