Задачи по информатике, нужно в Паскале сделать программы:
10-11 класс
|
2. Дано натуральное n. Вычислить n!; среднее арифметическое чисел от 1 до n; и среднее геометрическое от 1 до n.
3. Вводится натуральное число a. Вывести среди следующих чисел: 1;1+1/2;1+1/2+1/3;1+.......Найти среди этих чисел первое больше введёного a.
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<a do begin b:=b+1/i; i:=i+1; end;
writeln(b);
readln;
end.
Другие вопросы из категории
in months is 348
Читайте также
Пожалуйста помогите сделать задание в паскале.
Дана
матрица А(3.3)
1)
2.
Все натуральные числа, начиная с 1, выписаны в одну строку без пробелов.Требуется написать программу, определяющую, какая цифра стоит в этой строке
на заданном месте.
Технические требования.
Имя входного файла: INPUT.TXT
Имя выходного файла: OUTPUT.TXT
Формат входных данных:
В единственной строке входного файла записано целое число N - длина слова (1 ≤ N≤ 100000000).
Формат выходных данных:
Выходной файл содержит одну искомую цифру.
Примеры файлов входных данных: Примеры файлов выходных данных:
21 5
Опишите этапы решения на компьютере задачи нахождения значения a^b для целых чисел 0<a,b<10.