Question

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

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
  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.

Answer 2

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