Подсчитать сумму нечетных чисел от 1 до 99 - вопрос №3816518199 от demuazheldasha2 30.04.2023 22:59

Question

Информатика: Подсчитать сумму нечетных чисел от 1 до 99

demuazheldasha2 · Answer

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

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.