Вычислить 1/(n+1)! составить программу. паскаль
Вычислить 1/(n+1)!
составить программу. паскаль
Гость
Ответ(ы) на вопрос:
Гость//Pascal ABC.NET v3.1 сборка 1172
Var
n,k,i:integer;
r:real;
begin
readln(n);
k:=1;
for i:=1 to n+1 do
k:=k*i;
r:=1/k;
writeln(r);
end.
Пример ввода:
1
Пример вывода:
0.5
Не нашли ответ?
Похожие вопросы