Вычислить в pascal abc: y=1/(2-x) с оператором условного перехода. очень срочно
Вычислить в pascal abc: y=1/(2-x) с оператором условного перехода. очень срочно
Гость
Ответ(ы) на вопрос:
Гостьvar y,x:real; begin readln(x,y); if 1=1 then y:=1/(2-x); writeln(y); end.
ГостьProgram Program1;
var
x:real;
begin
write('Введите значение x: ');
readln(x);
if 2-x=0 then writeln('Деление на ноль.')
else
writeln('y=',1/(2-x));
end.
Не нашли ответ?
Похожие вопросы