Найдите сумму sin (1) + sin (2) + ... (M) и число слагаемых до первого отрицательного слагаемого.

Question

Информатика

Светуня

8 января, 14:52

Найдите сумму sin (1) + sin (2) + ... (M) и число слагаемых до первого отрицательного слагаемого.

+1

Ответы (1)

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

Иустин · Answer 1

Var x: real;

i, m: integer;

begin

readln (m) ;

for i : = 1 to m do

if (sin (i) > = 0) then

x : = x + sin (i)

else

break;

writeln (x) ;

end.

Должно быть, так)