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

2. Дано натуральное n. Вычислить n!; среднее арифметическое чисел от 1 до n; и среднее геометрическое от 1 до n.

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

Question

Информатика

Желика

10 февраля, 21:42

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

2. Дано натуральное n. Вычислить n!; среднее арифметическое чисел от 1 до n; и среднее геометрическое от 1 до n.

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

+3

Ответы (1)

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

Гавриил · 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 b
writeln (b) ;

readln;

end.