Вычислить

[Alexspirit]

Вот тут под цифрой 2 задание в сылке) Помоги полность расписать программу
начиная с
var

[Hacker19_90]

p := 1;
for k := 2 to n*2 do
   p := p*((k/k)+1-cos(abs(x)));

[Alexspirit]

Сообщение от Hacker19_90

p := 1;
for k := 2 to n*2 do
   p := p*((k/k)+1-cos(abs(x)));

а полность расписать можешь тока там cos в квадрате)

[Hacker19_90]

cos в квадрате

cos(abs(x)) => sqr(cos(abs(x)));

[Alexspirit]

Сообщение от Hacker19_90

cos(abs(x)) => sqr(cos(abs(x)));

чето не понел или программа не работает, может че то не то ввожу((

[Hacker19_90]

Показывайте, что дописали!
То бишь полный код в студию!

[Alexspirit]

я выложил сылку с фото там под цифрой 2 задание, сижу с друга акаунта) Если можешь напиши программу полность гачиная с var, а то я дуб дубом в этом как писать программу! Заранее спасибо

[Hacker19_90]

Нда! Лан Держите!

program example;
uses
    crt;
var
    n, k: integer;
    x, p: real;
begin
    clrscr;
    p := 1.0;
    Writeln ('Введите n и x);
    Readln (n, x);
    for k := 2 to n do
        p := p*((k/(k+1))-sqr(cos(abs(x))));
    Writeln ('p = ', p:5:4);
    ReadKey;
end.

[Alexspirit]

program example;
uses
    crt;
var
    n, k, s, d: integer;
    x, p: real;
begin
    clrscr;
    p := 1.0;
    Writeln ('Введите n и x);
    Readln (n, x);
    for k := 2 to n do
        s := sqr(cos(abs(x)))
        d := (k/(k+1)
        p := p*((k/(k+1))-sqr(cos(abs(x))));
    writeln ('cos = ' s:5:4 )
    Writeln ('p = ', p:5:4);
    writeln ('(k/(k+1) = ' d:5:4)
    ReadKey;
end.