Найти сумму

[irina.yurl]

1)Найти сумму всех целых чисел от А до В.
2)Найти среднее арифметическое всех целых чисел от 1 до А.
3)Найти сумму кубов всех целых чисел от 1 до 5.

[PavelDD]

1) Вот цикл, который считает сумму цифр в массиве в определенном диапазоне. Из этого можно вывести сумму цифр вообще(как Вам и надо).

     k:=0;
     readln(a,b);
     for i:=a to b do
         k:=k+c[i];

[alexander13]

1)

for i := a to b do
   sum := sum + i;

2)

for i := 1 to a do
   sum := sum + i;
mean := sum / a;

3)

for i := 1 to 5 do
   sum := sum + i*i*i;

Как-то так..