Question

Используя цикл for downto вычислить сумму чисел от 36 до 12. Помогите, пожалуйста, буду благодарен. Не уверен в правильности своего решения.

Answer 1

Var i,sum:integer;
begin
sum:=0;
for i:=36 downto 12 do
sum:=sum+i;
writeln('Сумма всех целых чисел от 36 до 12 равна ',sum);
end.