Найти сумму целых положительных нечетных чисел меньших 50

19.05.2013, 01:00. **Показов** 5442. **Ответов** 1

Kodzaev · 19.05.2013, 01:16

Pascal

Var
  i,s: Integer;
BEGIN
i:=-1;
s:=0;
Repeat
  i:=i+2;
  s:=s+i;
until i=49;
Writeln(s);
END.

dvj123
		1
	Найти сумму целых положительных нечетных чисел меньших 50 19.05.2013, 01:00. Показов 5442. Ответов 1 Метки нет (Все метки) Найти сумму целых положительных нечетных чисел меньших 50

	19.05.2013, 01:16

Опции темы

Решение