Найти сумму нечетных чисел в интервале от 34 до 78.

@ivan23124 · Регистрация: 15.12.2016

Найти сумму нечетных чисел в интервале от 34 до 78.Срочно

@JuriiMW · 16.12.2016, 07:33

Если бы это был PascalABC.NET, то программы бы выглядела так:

Pascal

1
2
3

begin
  Write(Range(34,78).Where(n->odd(n)).Sum);
end.

Ну, а на TP можно так:

Pascal

var s, i : Integer;
begin
  s := 0; for i := 34 to 78 do if odd(i) then inc(s,i);
  Write(s);
end.

@vint-81 · 16.12.2016, 14:19

Pascal

var s, i : Integer;
begin
  s := 0;i:=35; 
  while i<78 do begin inc(s,i);inc(i,2) end;
  Write(s);
end.

@bormant · 16.12.2016, 23:41

Какие циклы, фопмула суммы арифметической прогрессии с шагом 2 от 35 до 77. Один WriteLn.

@ivan23124 0 / 0 / 0 Регистрация: 15.12.2016 Сообщений: 1
		1
	Найти сумму нечетных чисел в интервале от 34 до 78. 15.12.2016, 15:55. Показов 2031. Ответов 3 Метки нет (Все метки) Найти сумму нечетных чисел в интервале от 34 до 78.Срочно 0

@bormant Модератор 7539 / 4399 / 2785 Регистрация: 22.11.2013 Сообщений: 12,605 Записей в блоге: 1
	16.12.2016, 23:41	4
	Какие циклы, фопмула суммы арифметической прогрессии с шагом 2 от 35 до 77. Один WriteLn. 1

Опции темы