Ответы
Ответ дал:
0
Ответ:
program SinX;
var
n, i: Integer;
x, p: Double;
begin
Write ('n = ');
ReadLn (n);
Write ('x = ');
ReadLn (x);
p := 1;
for i := 1 to n do begin
p := p * (i + Sin (x));
end;
WriteLn ('Произведение = ', p :20 :10);
ReadLn;
end.
Вас заинтересует
4 месяца назад
4 месяца назад
1 год назад
1 год назад
2 года назад