Найти сумму всех нечётных от 50 до 80, используя все три вида циклов.

Question

Найти сумму всех нечётных от 50 до 80, используя все три вида циклов.

Comments

А можно и вообще без циклов.

---

нужно с циклами. буду очень рад если поможете

---

Вы не разочаруетесь, если я замечу, что в современных языках (и в Паскале тоже) ЧЕТЫРЕ вида циклов?

Answer 1

Var i,s : Integer;
Begin
  s:=0;
  For i:=50 to 80 do If Odd(i) then s:=s+i;
  Writeln(s);
 
  s:=0;
  i:=50;
  While i<=80 do<br>  Begin
    If Odd(i) then s:=s+i;
    Inc(i);
  end;
  Writeln(s);
 
  s:=0;
  i:=50;
  Repeat
    If Odd(i) then s:=s+i;
    Inc(i);
  Until i>80;
  Writeln(s);

end.

Comments

Writeln((79+51)*((79-51) div 2+1)/2);