Question

Тема: Циклы. Подсчитать сумму НЕЧЕТНЫХ чисел от 1 до 99 в ПАСКАЛЕ

Answer 1

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

Answer 2

Var sum,i:Integer;
 Begin 
  for i:=1 to 99 do 
   if (i mod 2<>0) then sum:=sum+i; 
   Writeln('SUM =', sum);
end.