Найти сумму ряда с помощью циклов While, Repeat, For

@JokerMD · Регистрация: 29.09.2011

Author24 — интернет-сервис помощи студентам

Написать 3 программы с использованием каждого цикла в отдельной программе.
Условие -> 1/101+1/201+1/301 = ?
1. While
2. Repeat
3. For

@Pahanuch · 25.06.2012, 18:46

Сообщение от JokerMD

3. For

Pascal

program pr;
uses crt;
var i,N: integer;
res:real;
begin
write('Введите N = ');
read(N);
For i:=1 to N do
Begin
 res:=res+1/(100*i+1);
  End;
  write('Результат = ',res);
end.

Добавлено через 6 минут
JokerMD, в вашем случаи N=3

@JokerMD 0 / 0 / 0 Регистрация: 29.09.2011 Сообщений: 31
		1
	Найти сумму ряда с помощью циклов While, Repeat, For 25.06.2012, 18:25. Показов 1598. Ответов 1 Метки нет (Все метки) Написать 3 программы с использованием каждого цикла в отдельной программе. Условие -> 1/101+1/201+1/301 = ? 1. While 2. Repeat 3. For 0

	25.06.2012, 18:46

Найти сумму ряда с помощью циклов While, Repeat, For

Решение