решить 2 и 3 задачу в Паскале абц

daniilzagora daniilzagora    2   13.08.2020 11:50    0

Ответы
Alisarive Alisarive  15.10.2020 15:53

Код программы:

var Y, X:real;

begin

 writeln('Введите X');

 readln(X);

 if X < 0 then

   writeln('Ошибка, число под корнем не может быть отрицательным')

 else begin

   Y:= sqrt(X) + 5 + sqrt(5) * X - 4;

   writeln('Y = ', Y);

 end;

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика