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

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

Ответы и объяснения

2013-10-21T13:29:15+04:00
Var a, i: integer;
begin
     for i := 13 to 24 do
     begin
         a := a + i;
         write(i, ' + ');
     end;
     write(' 25 = ');
     writeln(a + 25);
end.

Удачи=)
  • jd42
  • середнячок
2013-10-21T13:30:47+04:00
Var i:byte
n:integer;

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

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