Задачи по информатике, нужно в Паскале сделать программы:2. Дано натуральное n. Вычислить...

Question

Задачи по информатике, нужно в Паскале сделать программы:

2. Дано натуральное n. Вычислить n!; среднее арифметическое чисел от 1 до n; и среднее геометрическое от 1 до n.
3. Вводится натуральное число a. Вывести среди следующих чисел: 1;1+1/2;1+1/2+1/3;1+.......Найти среди этих чисел первое больше введёного a.

Answer 1

2)
var n: integer;
sum,r: longint;
begin
sum:=0; r:=1;
readln(n);
for i:=1 to n do begin
 sum:=sum+n;
 r:=r*i;
end;
writeln('!n=',r);
writeln('Ср. арифм.=',sum/n);
writeln('Ср. геом.=', r/n);
readln
end.
3)
var a,b: real; i:=integer;
begin
readln(a);
b:=0; i:=1;
while bwriteln(b);
readln;
end.

Comments

Среднее геометрическое неверно найдено, там надо не делить, а брать корень..

---

var n,i: integer;
sum,r: longint;
begin
sum:=0; r:=1;
readln(n);
for i:=1 to n do begin
sum:=sum+i;
r:=r*i;
end;
writeln('!n=',r);
writeln('Ср. арифм.=',sum/n);
writeln('Ср. геом.=', exp(ln(r)*1/n));
readln
end.

---

Спасибо, вот исправленный вариант )