ко 2 июня надо!плиззззззззззз.не могу решить!!!(((

[серега222]

Дано натуральное число n. вычислить: 1/sin 1+1/(sin 1+sin 2)+...+1/(sin 1+sin 2+...sin n)

[серега222]

Сообщение от серега222

Дано натуральное число n. вычислить: 1/sin 1+1/(sin 1+sin 2)+...+1/(sin 1+sin 2+...sin n)

[alex_fcsm]

Если не напутал

uses crt;
var i,j,n:integer;
    sum,zn:real;

begin
clrscr;
readln(n);
sum:=0;
for i:=1 to n do
 begin
  zn:=0;
   for j:=1 to i do
    zn:=zn+sin(j);
   sum:=sum+1/zn;
 end;
 writeln(sum);
end.

[NoHeart]

var n,i,j:integer;
sum,buf:real;
begin
sum:=0;
writeln (' Введите n');
readln(n);
for i:=1 to n do begin
buf:=0;
for j:=1 to i do
buf:=buf+sin(j);
sum:=sum+1/buf;
end;
writeln(' Ответ :',sum);
end.


Возможны ошибки, писал без паскаля=)
ЗЫ: не забудте добавить рейтинг=)
Значок весов под ником.

[NoHeart]

Ыыыы один в один почти=))))))

[alex_fcsm]

Сообщение от NoHeart

Ыыыы один в один почти=))))))

ТОлько тип нужно real все-таки, а то синус не очень целый

P.S. Оперативно ))))

[NoHeart]

Уже исправил=)) Понял, что накосячил)))

Только, что то рейтинг ниже 10 опустился о_О =(