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

Вопрос по информатике:

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

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

Пожаловаться

19.05.2018 06:23
Информатика
4394
27

Ответы и объяснения 1

vedesyou

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.

Пожаловаться

20.05.2018 17:20
10

Знаете ответ? Поделитесь им!

Гость ?

Как написать хороший ответ?

Есть сомнения?

Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.

Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!

Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.

Новые вопросы

lolimoon4a

Информатика

Определите количество ненулевых цифр в девятеричной записи числа: 2*729³³³+2*...

k63454482

Информатика

В ячейке F10 записали формулу =(E5-D4)*C7. После этого формулу скопировали в ячейку D8, G11, Е7. Как...

aefazudca

Информатика

Visual Studio, C#, Windows Forms. Разработайте игру, которая заключается в следующем. На форме...

deadcoldy

Информатика