Подсчитать сумму НЕЧЕТНЫХ чисел от 1 до 99
Подсчитать сумму НЕЧЕТНЫХ чисел от 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.
Не нашли ответ?
Похожие вопросы