Ответы
Ответ дал:
0
//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
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
Вас заинтересует
1 год назад
1 год назад
6 лет назад
6 лет назад
8 лет назад
8 лет назад
9 лет назад
9 лет назад