Среднее арифметическое.

[Deutch]

Извините за беспокойство, не могли бы Вы помочь в решении задач в Паскале:
1) Найдите среднее арифметическое чисел кратных 13 до 212.
2) Найдите среди чисел до 99 числа, сумма которых равна 24.
Спасибо.

[Скандербег]

А решение задач без Паскаля есть?

[Lemo]

Не вижу наработок!

[Lemo]

1-я (Делфи)

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;
  const
  n=10000 ; // интервал
var
i,sum,c:integer;
ave : extended;

begin
sum:=0;
c:=0;
     for I := 1 to n do
       begin
         if ((i mod 13)=0) and  ((i mod 212)=0) then
          begin
            inc(c);
            sum:=sum+i;
          end;
       end;

     ave:=sum/c;
write('RESULT : ', ave:6:2);
readln;
end.