Паскаль.Для заданного натурального числа n рассчитать сумму:
а)cosx+cos x2 +cos x2+....+cosxn
б)sin1+sin1,1+sin1,2+...+sin2
в)1!+2!!+3!+...+n!
Ответы
Ответ дал:
0
1)
var
n,i:Integer;
sum:Real;
Begin
Read(n);
for i:=1 to n do
sum:=sum+cos(i);
Writeln(sum);
end.
var
n,i:Integer;
sum:Real;
Begin
Read(n);
for i:=1 to n do
sum:=sum+cos(i);
Writeln(sum);
end.
Ответ дал:
0
В Pascal напиши к задаче подробные комментарии.
Вас заинтересует
1 год назад
1 год назад
6 лет назад
6 лет назад
9 лет назад
9 лет назад
9 лет назад