Решил составив программу на паскале:
var
k,j,i:integer;
a:real;
begin
k:=0;
for i:=1 to 161 do
begin
a:=0;
for j:=1 to i do a:=a+sin(i);
if a<0 then inc(k);
end;
writeln(k);
end.
Ответ: 80
var
k,j,i:integer;
a:real;
begin
k:=0;
for i:=1 to 161 do
begin
a:=0;
for j:=1 to i do a:=a+sin(i);
if a<0 then inc(k);
end;
writeln(k);
end.
Ответ: 80
29.09.15
ответ эксперта
У эксперта Renat Yahin (yaren) пока что нет блогов