Иларион
6 год назад
Напишите программу которая выполняет значение функции y= 1/(x+1)от 0 до 6
ОТВЕТЫ
Waltz Maike
Oct 24, 2020
Var
x:integer;
Begin
WriteLn('f(x) = 1/(x+1)');
For x:= 0 to 6 do
WriteLn('f(',x,') = ',1/(x+1));
End.
Результат работы программы:
f(x) = 1/(x+1)
f(0) = 1
f(1) = 0.5
f(2) = 0.333333333333333
f(3) = 0.25
f(4) = 0.2
f(5) = 0.166666666666667
f(6) = 0.142857142857143
x:integer;
Begin
WriteLn('f(x) = 1/(x+1)');
For x:= 0 to 6 do
WriteLn('f(',x,') = ',1/(x+1));
End.
Результат работы программы:
f(x) = 1/(x+1)
f(0) = 1
f(1) = 0.5
f(2) = 0.333333333333333
f(3) = 0.25
f(4) = 0.2
f(5) = 0.166666666666667
f(6) = 0.142857142857143
29
Смежные вопросы:
