Паскаль. Для заданного натурального числа n рассчитать сумму:

а) cosx+cos x2 + cos x2 + ... + cosxn

б) sin1+sin1,1+sin1,2 + ... + sin2

в) 1!+2!+3! + ... + n!

Question

Влас

20 июля, 10:01

+5

Ответы (1)

Знаете ответ на вопрос?

Юрася · Answer 1

1)

var

n, i:Integer;

sum:Real;

Begin

Read (n) ;

for i:=1 to n do

sum:=sum+cos (i) ;

Writeln (sum) ;

end.

Паскаль. Для заданного натурального числа n рассчитать сумму:а) cosx+cos x2 + cos x2 + ... + cosxnб) sin1+sin1,1+sin1,2 + ... + sin2в) 1!+2!+3! + ... + n!