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

Подсчитать сумму НЕЧЕТНЫХ чисел от 1 до 99

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

Конечно, это можно сделать по формуле арифметической прогрессии, но если просят цикл, то:



uses Crt;
var  i, Sum: integer;

begin
  ClrScr;
  Sum:=0;
  i:=1;
  while i<=99 do
    begin
     Sum:=Sum +i ;
      i:=i+2;

    end;
  WriteLn( Sum = , Sum);
  ReadLn;
end.