Найти сумму ряда

@all your · Регистрация: 16.12.2010

1) S = 1 + 2 + 3 + 4 + ... + n
2) P = 1 * 3 * 5 * 7 * ... * n
3) S = 1 + 1 + 1 + 1 + ... + 1
_ _ _ _
2 3 4 n

@PsiYar · 20.02.2011, 20:19

Pascal

1
2
3

readln(n);
for i:=1 to n do
s:=s+i;

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

Pascal

readln(n);
while i<=n do begin
p:=p*i;
i:=i+2;
end;

@SuPeR XaKer · 20.02.2011, 20:51

readln(n);
while i<=n do begin
p:=p*i;
i:=i+2;
end;

не верна..

Pascal

1
2
3

p:=1;
for i:=1 to n do
 p:=p*(i*2-1);

@all your 0 / 0 / 0 Регистрация: 16.12.2010 Сообщений: 22
		1
	Найти сумму ряда 20.02.2011, 20:10. Показов 805. Ответов 2 Метки нет (Все метки) 1) S = 1 + 2 + 3 + 4 + ... + n 2) P = 1 * 3 * 5 * 7 * ... * n 3) S = 1 + 1 + 1 + 1 + ... + 1 _ _ _ _ 2 3 4 n 0

	20.02.2011, 20:51

Решение