Напишите на языке Паскаль программу вычисления y по формуле: y=2x-5/x-1, где x - данное целое число.
Ответы на вопрос
Ответил Gleb1Kosyrev
0
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.
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.
Новые вопросы