Ответы на вопрос:
Var x: integer; y: real; begin write('x = '); readln(x); if x = 3 then writeln('ошибка: деление на ноль! ') else begin y: =(3+x)/(3-x); writeln('y = (3+x)/(3-x) = ', y: 3: 2); end; readln; end.
Популярно: Информатика
-
Zggzsbsnnzh17.06.2023 23:33
-
ulyanaKnyazeva1029.09.2022 20:48
-
avetisgrigoryan28.04.2021 13:02
-
dpil900dima07.09.2020 00:15
-
DashaTaylor1126.11.2021 18:58
-
19791207the18.12.2021 07:18
-
школа555301.02.2021 11:50
-
ghosthog27.02.2021 18:50
-
Darya001220.12.2020 00:18
-
hhhnnnvvv24.07.2020 22:08