Составить программу, используя цикл с постусловием:Подсчитать сумму всех нечётных чисел...

Question

Составить программу, используя цикл с постусловием:
Подсчитать сумму всех нечётных чисел от 230 до 430

Comments

замени, я напиал что в комментах

Answer 1

Var i,s: integer;
begin
clrscr;
s:=0;
for i:=230 to 430 do
s:=s+i;
writeln(s);
end.

Comments

нечетных чисел

---

а, забыл. изменм цикл на for i:=230 to 430 do if i mod 2 =1 then s:=s+i;