БУДЬ ЛАСКА Знайти середнє геометричне число всіх цілих додатних чисел менших 10. ЯКЩО...

Question

БУДЬ ЛАСКА Знайти середнє геометричне число всіх цілих додатних чисел менших 10. ЯКЩО МОЖНА ТО СКРІН

Answer 1

Log 1+ log 2 + log 3 + log 4+ log 5+ log 6+ log 7= 3.70243054

Comments

в MSDOS можно и скрин? типо такой задачи

---

Program PR_1;
    var N,i:integer; Factorial:longint;
begin
writeln('Bведіть значення натурального числа n');
write('n='); readln (n);
Factorial:=1;
for i:=1 to n do
Factorial:=Factorial * i;
writeln(N,'! = ',factorial)
end.