Практикум по решению задач на ЭВМ. Тарова И.Н - 28 стр.

UptoLike

ВУЗ: 

ЕГУ им. Бунина | Елец

Составители: 

Рубрика: 

Тарова И.Н., Терехов Ю.П., Масина О.Н., Скоков А.В.
writeln('первое число,большее а=',b);
end.
4) Дано нату-
ральное число n.
Вычислить произведение первых n сомножителей
a) 1/2*3/4*5/6*…
b) 1/1*3/2*5/3*…
{произведение сомножителей}
program product(input,output);
uses CRT;
var n,i:integer; p:real;
begin
clrscr;
writeln('*Вычисление первых n сомножителей последовательности*');
writeln('1/2*3/4*5/6');
writeln('Введите число n');
read(n);
p:=1;
for i:=1 to n do
p:=p*(2*i-1)/(2*i);
writeln ('произведение=',p);
end.
5) Пусть а
0
=1, а
1
=1, а
n
=(а
n-2
+а
n-1
)/2в степени n-1 найти произведение
а
0
*а
1
*а
2
*…*а
14
program prois(input,output);
uses CRT;
var a0,a,P:real;
i,k:integer;
28
                               Тарова И.Н., Терехов Ю.П., Масина О.Н., Скоков А.В.


    writeln('первое число,большее а=',b);
  end.



4) Дано                                                                   нату-
ральное                                                                 число n.


Вычислить произведение первых n сомножителей
  a) 1/2*3/4*5/6*…
  b) 1/1*3/2*5/3*…

  {произведение сомножителей}
   program product(input,output);
   uses CRT;
   var n,i:integer; p:real;
   begin
     clrscr;
     writeln('*Вычисление первых n сомножителей последовательности*');
     writeln('1/2*3/4*5/6');
     writeln('Введите число n');
     read(n);
     p:=1;
     for i:=1 to n do
         p:=p*(2*i-1)/(2*i);
     writeln ('произведение=',p);
  end.




5) Пусть а0=1, а1=1, аn=(аn-2+аn-1)/2в степени n-1 найти произведение
а0*а1*а2*…*а14
  program prois(input,output);
  uses CRT;
    var a0,a,P:real;
       i,k:integer;


                                    28

Страницы