Тема: Циклы. Подсчитать сумму НЕЧЕТНЫХ чисел от 1 до 99 в ПАСКАЛЕ
Тема: Циклы.
Подсчитать сумму НЕЧЕТНЫХ чисел от 1 до 99 в ПАСКАЛЕ
Гость
Ответ(ы) на вопрос:
Гостьvar sum,i:Integer;
Begin
for i:=1 to 99 do
if (i mod 2<>0) then sum:=sum+i;
Writeln('SUM =', sum);
end.
Гостьvar
i,s:integer;
begin
i:=1; s:=0;
while i<=99 do
begin s:=s+i; i:=i+2 end;
Writeln(s)
end.
Тестовое решение:
2500
Не нашли ответ?
Похожие вопросы