Question

Составить программу, которая вычисляет среднеарифметическое чисел, кратных 3 в диапазоне от 1 до 200.
Составить программу, которая вычисляет факториал числа 7!

Answer 1

Первая программа:

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.