Помогите пожалуйста. Вычислить сумму ряда чисел от 10 до 25 с шагом 1. Применить цикл с...

Question

Помогите пожалуйста.
Вычислить сумму ряда чисел от 10 до 25 с шагом 1. Применить цикл с предусловием.

Answer 1

Держи :)

program sumS;Var S, a, b: integer;
begina:=10;b:=25;while a<=b dobeginS:= S + a;a:= a+1;end;writeln(S);end.