Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.