Потдчитатт суму всех нечетных чисел от 230 430 помогите срочно

Question

Потдчитатт суму всех нечетных чисел от 230 430 помогите срочно

Answer 1

Var
k,sum:integer;
begin
for k:=230 to 430 do
if (k mod 2<>0) then
sum:=sum+k;
write(sum);
end.

Answer 2

230 430:2=115 215- чётные числа до 230 430