Вычислить сумму, используя цикл с параметром

@Асичка · Регистрация: 23.11.2012

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

Найти сумму целых положительных нечетных чисел, меньших 150 и больших 25, кратных 5

@ermolay · 25.11.2012, 20:24

Имеются в виду все числа из данного промежутка?
Тогда так:

Pascal

var
  i: byte;
  sum: integer;
begin
  sum:=0;
  for i:=26 to 149 do
    if (i mod 2<>0)and(i mod 5=0) then
      sum:=sum+i;
  writeln('Сумма = ',sum);
end.

@Асичка · 25.11.2012, 20:29 **[ТС]**

Да. Спасибо

@Асичка 7 / 7 / 6 Регистрация: 23.11.2012 Сообщений: 63
		1
	Вычислить сумму, используя цикл с параметром 25.11.2012, 20:20. Показов 2549. Ответов 2 Метки нет (Все метки) Найти сумму целых положительных нечетных чисел, меньших 150 и больших 25, кратных 5 0

@Асичка 7 / 7 / 6 Регистрация: 23.11.2012 Сообщений: 63
	25.11.2012, 20:29 [ТС]	3
	Да. Спасибо 0

Опции темы

Вычислить сумму, используя цикл с параметром

Решение