Составьте программу вычисления суммы нечетных чисел в диапазоне от 1 до 10

С помощью оператора while:

var

i, sum:integer;

begin

sum:=0;

i:=1;

while i<=10 do

begin

sum:=sum+i;

i:=i+2;

end;

writeln ('Summa: ', sum) ;

end.

Пойдет?

uses crt;

var

i: byte;

s: word;

begin

i : = 1;

s : = 0;

while i < = 10 do

begin

if i mod 2 0 then

s : = s + i;

inc (i) ;

end;

writeln ('Сумма нечётных чисел от 1 до 10: ', s) ;

readln;

end.