Напишите на языке Паскаль программу вычисления y по формуле: y=2x-5/x-1, где x - данное целое число.

Question

Исакий

29 октября, 12:15

+5

Ответы (1)

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

Дарюха · Answer 1

Var

x, y:real;

begin

readln (x) ;

if x=0 then

begin;

write ('Divided by zero') ;

exit;

end;

y:=2*x-5/x-1;

writeln (y) ;

end.