Вычислить произведение: 1/2*1/3*...*1/n. Created by НЕГРОИД2. informatika-ru

n...

Verified answer

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

3 votes Thanks 2

yamori Program kek;
var s.i,n:integer;
s:=0;
readln (n);
for i to n do
s:=s+1/i;
write ('сумма равна ', s);
end.

2 votes Thanks 2

yamori Извиняюсь, думал там сложение. тогда s:=1 , и s:=s*(1/i)

Answers & Comments

Verified answer

При каком угле падения падает человек...

Составить 2-3 предложения с однородными которые являются одинаковыми членами пре...

Характеристика мцыри в поэми мцыри...

Что такое акробатика...

Составьте 2-3 предложения где сочинительная связь между однородными членами выра...

Составьте 2-3 предложения с однородными членами предложения равноправныи незави...

сочинение на тему что для меня значит тренировка 4 страницы листа А4...

Сравнительная характеристика большого и малого круга крообращения...

Найдите количество нечетных элементов массива, состоящего из n чисел...

в заданном одномерном массиве состоящем из n целых частей нужно посчитать количе...

рекомендуемые вопросы

Helpful Links

Helpful Social