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

Составить программу, которая вычисляет факториал числа 7!

Question

Информатика

Фрида

16 октября, 19:43

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

Составить программу, которая вычисляет факториал числа 7!

+2

Ответы (1)

Знаете ответ на вопрос?

Косьма · 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.

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

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

Составить программу, которая вычисляет факториал числа 7!