написать програму у=(1+1/1)* (1+1/2)*(1+1/3)...(1+1/n)

15.05.2011, 12:36. **Показов** 1347. **Ответов** 2

у=(1+1/1)* (1+1/2)*(1+1/3)...(1+1/n) если кто может напишите пожалуйста

@Просто лис · 15.05.2011, 12:42

Типа такой уже писалась но...

Добавлено через 3 минуты

Pascal

Var n:byte; y: real; i:byte;
begin
y:=(1+1/1);
Writeln('vvedite n' );
readln(n);
for i:=2 to n do
Y:=y*(1+1/i);
Writeln(y:1:1);
readln;
end.

15.05.2011, 13:58

Спс!!

marakasi
		1
	написать програму у=(1+1/1)* (1+1/2)(1+1/3)...(1+1/n) 15.05.2011, 12:36. Показов* 1347. Ответов 2 Метки нет (Все метки) у=(1+1/1)* (1+1/2)*(1+1/3)...(1+1/n) если кто может напишите пожалуйста

Опции темы

Решение