Вычислить в pascal abc: y=1/(2-x) с оператором условного перехода.
Dinomid93
2
27.03.2019 22:30
0
Другие вопросы по теме Информатика
ZeuSDECL0
29.09.2019 18:50
kondrashkinacat21
29.09.2019 18:50
крошка44
29.09.2019 18:50
kmarkechko
29.09.2019 18:50
Ermolenkoo
29.09.2019 18:50
kotgemer
29.09.2019 18:50
Mariaxmxm
01.02.2021 15:50
ииоииири
13.06.2020 02:55
Популярные вопросы
- Вкаком из океанов зарегистрированна максимальная глубина , как называется...
2 - Слитно, раздельно или через дефиз, и обязательно с ! , 15 (ни) кто (железно)...
1 - 1) are you … in classical music? a) fond b) rest c) interested d) know...
2 - Закончите уравнения реакций , составьте схемы электронного и расставьте...
3 - Березовый лес: 1)горные породы 2)почва 3)воды 4)растения 5)климат 6)животные...
2 - Сколько шестизначных чисел можно образовать из цифр 1, 2, 3, 4, 5, 6, 7,...
3 - Как происходит размножение черенками? только текст...
3 - Решите уравнение 3+0.6*(х+7)=1.3-0.5*(х-3)...
2 - Какая масса сорбита с6н14о6 образуется при взаимодействии с водородом 45...
2 - 1. сколько различных написания предложения поздравляем мы тебя существует?...
2
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.