Составить программу, которая вычисляет среднеарифметическое чисел, кратных 3 в диапазоне от 1 до 200.
Составить программу, которая вычисляет факториал числа 7!
Первая программа:var summ,k,i:Integer; sa:Real;begin summ:=0; k:=0; for i:=1 to 200 do begin if (i mod 3 = 0) then begin summ:=summ+i; k:=k+1; end; end; sa:=summ/k; WriteLn(sa);end.Вторая:var i,f:Integer;begin f:=1; for i:=1 to 7 do f:=f*i; WriteLn(f)end.