Написать программу, используя структуру вложенных циклов

[NemoI3]

Составить алгоритм и написать программу для вычисления предложенных выражений, используя структуру вложенных циклов. Для каждого значения параметра внешнего цикла выводится значение внешней скобки.


6. Вычислить значение выражения:

где z = 1.873


написал программу, но преподаватель не принимает...не вижу ошибки((что делать?

var k,i:integer; z,s,sk,si,m:real;
begin 
z:=1.873;
s:=0;
m:=0;

for k:=1 to 4 do	
begin
sk:=0;
sk:=sqr(cos(z/k))/(power(z,k)-ln(k)/ln(6));

for i:=1 to 6 do
begin 
si:=exp((i-k)/2)/(z*z*z+power(sqr(i)+sqr(k),(1/3)));
s:=s+(sk-si); 
si:=0
end;
m:=m+s; sk:=0;
end;
writeln(m:6:2);
readln;
end.

<table valign="top" style='margin:0;width:100%;border:1px dashed red;'>[tr]<td align='middle' bgcolor='#ff6060' valign='top' width='1%'>
<FONT color='#ffffff' size='+3'> ! </font>
</td><td align="midle" valign='top' style='background:#fff;'>Правильно оформляйте код.</td>[/tr]</table>

 

[Dock1100]

Возможно так?:

var k,i:integer; z,s,sk,si,m:real;
begin 
z:=1.873;	
s:=0; 
m:=0;

for k:=1 to 4 do	
begin
sk:=sqr(cos(z/k))/(power(z,k)-ln(k)/ln(6));
s:=0; {here}
for i:=1 to 6 do
begin 
si:=exp((i-k)/2)/(z*z*z+power(sqr(i)+sqr(k),(1/3)));
s:=s+si; {here}
end;
s:=sk-s; {and here}
m:=m+s;
end;
writeln(m:6:2);
readln;
end.

 

[NemoI3]

спасибо огромное)
второй день выручаешь

 

[Dock1100]

А код правильно работает?, просто я тут писал и не проверял

 

[NemoI3]

подскажите пожалуйста...что значит "Правильно оформляйте код" ???
я еще новенький...не понимаю многого))

 

[Dock1100]

Выделите код и на панели над полем ввода нажмите на "свиток" link removed