Ответы
Ответ дал:
0
var n,i:integer;
p:real;
begin
write('n = ');
readln(n);
p:=1;
for i:=1 to n do p:=p*(1/i);
writeln('p = ',p);
end.
Пример:
n = 5
p = 0.00833333333333333
p:real;
begin
write('n = ');
readln(n);
p:=1;
for i:=1 to n do p:=p*(1/i);
writeln('p = ',p);
end.
Пример:
n = 5
p = 0.00833333333333333
Ответ дал:
0
Program kek;
var s.i,n:integer;
s:=0;
readln (n);
for i to n do
s:=s+1/i;
write ('сумма равна ', s);
end.
var s.i,n:integer;
s:=0;
readln (n);
for i to n do
s:=s+1/i;
write ('сумма равна ', s);
end.
Ответ дал:
0
Извиняюсь, думал там сложение. тогда s:=1 , и s:=s*(1/i)
Вас заинтересует
1 год назад
6 лет назад
8 лет назад
8 лет назад
9 лет назад