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

19.05.2013, 01:00. **Показов** 5264. **Ответов** 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. Показов 5264. Ответов 1 Метки нет (Все метки) Найти сумму целых положительных нечетных чисел меньших 50

Опции темы

Решение