Вычеслить сумму натуральных чисел, начиная от 13 до 25. паскаль.. ребят пожалуйста...

Question

Вычеслить сумму натуральных чисел, начиная от 13 до 25. паскаль.. ребят пожалуйста помогите!

Comments

ребятки помогите пожалуйста

Answer 1

Var a, i: integer;
begin
     for i := 13 to 24 do
     begin
         a := a + i;
         write(i, ' + ');
     end;
     write(' 25 = ');
     writeln(a + 25);
end.

Удачи=)

Answer 2

Var i:byte
n:integer;

begin
n:=0;
for i:=13 to 25 do
 n:=n+i;

writeln('сумма от 13 до 25 = ', n);
end.