Помогите решить задачу в Паскале с циклом while Условие: Вычисление суммы нечетных чисел в интервале 0 - 10

Question

Кристина · Accepted Answer

Как-то так:
Program Summa;
var i,c:integer;
 s:string;
Begin
i:=0;c:=0;
while i<=10 do 
 Begin
 if round(i/2)<>i/2 then c:=c+i;
 i:=i+1;
 end;
 str(c,s);
 writeln('Сумма нечетных чисел равна '+s;
end;

Алёна Иванова · Answer

Var i, sum: byte;
Begin 
i := 1; while i < 6 do begin sum += i + 2; inc(i); end;
WriteLn(sum);
Read;
End.