Question

В паскале. Написать программу вычисления суммы всех двухзначных нечетных чисел.

Answer 1

var a,s:integer;
begin
s:=0;
a:=11;
while a<=99 do
 begin
 s:=s+a;
 a:=a+2;
 end;
writeln('s = ',s);
end.

Результат:
s = 2475

Answer 2

// PascalABC.NET 3.1, сборка 1204 от 24.03.2016
begin
  Write(Range(11,99,2).Sum)
end.

Результат выполнения программы:
2475