Регистрация
typaydevochka
29.03.2023 09:44
Информатика
Есть ответ 👍

98 составьте программу паскаль решающую следующую : дано натуральное число n. вычислить значение произведения p=2/3*4/5*6/7**2n/2n+1

217
279
Посмотреть ответы 2

Ответы на вопрос:

Kammmmmmmmmmmm
Kammmmmmmmmmmm
4,6(37 оценок)

ответ:

uses crt;

var n: integer;

    a,b,x: real;

begin

write('n=');

  readln(n);

  x: =1;

for n: =1 to n do

  x: =x*((2*n)/(2*n+1));

writeln(' x=',x: 4: 1);

end.

или

uses crt;

var n: integer;

    a,b,x: real;

begin

write(' n='); readln(n);

for n: =1 to n do

x: =2*n/2*n+1;

writeln(' x=',x: 4: 1);

end.

объяснение:

ауе60
ауе60
4,7(57 оценок)
Var   a: array [1..4] of string;   s: string : = 'бвгджзйклмнпрстфхцчшщъь';   i, j: byte; begin   for i : = 1 to 4  do     readln(a[i]);       for i : = 1 to 4  do     for j : = 1 to length(a[i]) do       delete(s, pos(a[i][j], s), 1);       writeln();   writeln(s); end. > котики > это > несказ анное > добро > вгжйлмпфхцчшщъь

Популярно: Информатика