Составить программу, которая вычисляет среднеарифметическое чисел, кратных 3 в диапазоне от 1 до 200.
Составить программу, которая вычисляет факториал числа 7!
Ответы
Ответ дал:
0
Первая программа:
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.
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.
Вас заинтересует
2 года назад
2 года назад
8 лет назад
8 лет назад