Написать программу вычисления значения функции y=1/x. мы знаем, что на ноль делить нельзя, поэтому в программе, если x=0, будем присваивать y значение 0
dimasikPro2
3
27.07.2019 03:40
5
Другие вопросы по теме Информатика
ВладаГоликова
25.08.2019 07:30
kjhfdklffsjsw
25.08.2019 07:20
tatiana2017D
25.08.2019 07:20
grigorisinnatal
21.05.2019 19:10
Прша
21.05.2019 17:24
esyajm
21.12.2020 23:45
delsinroujob
21.12.2020 23:42
zaira1979zaira11
15.06.2019 17:40
Gatkek
22.03.2020 07:48
Популярные вопросы
- Во по рассказу К Паустовского Телеграмма Сделать к сегодня желательно)...
2 - Как изменяется свойства горных пород в процессе круговорота с использованием...
3 - Задача на масштаб Используя атлас по географии (страница 20) найти...
3 - Какие мхи относятся к печеночным мхам и почему, а какие к листебельным,...
2 - Напишите небольшой конспект на тему «Война в музыке, литературе, живописи»...
3 - Реши систему уравнений методом подстановки...
2 - Тіло плаває у олії.Визначити масу тіла якщо його об єм становить 400...
1 - Гроссман собака 1:как протекала жизнь собаки на улице2)Какая судьба...
3 - СПП с несколькими придаточными...
1 - Эссе на тему нужно около 7 предложение...
3
var y,x:real;
begin
writeln ('введите х');
readln(x)
if (x=o)
then y:=0
else y:=1/x;
writeln('y=',y)
end.
x,y:real;
begin
write('Введите значение x=');read(x);
if x=0 then begin
y:=0;
writeln('Y=',y);
end;
if x<>0 then begin
writeln('Y=',1/x);
end;
end.