Question

Напишите программу нахождения суммы положительных нечетных чисел меньших 100

Answer 1

var a,b,c: integer;begin 
  a:=1; 
 while a<100 do 
  begin
   c:=c+a;
   a:=a+1;
   end; 
  writeln(c);
end.