завтра экзамен, КТО НИББУДЬ!!! отзовитесь!!!!!ПАСКАЛЬ....

[ROMA2PVT]

А помоему вот так должно быть.

uses crt;
var
  n,i,s:longint;
  c:array [1..100] of longint;
begin
clrscr;
write('n=');
readln(n);
s:=0;
for i:=1 to n do
 begin
  c[i]:=round(exp(3*ln(i))-3*sqr(n)+n);
{writeln(c[i],' ');}
if (c[i] mod 2=0) and (odd(c[i] div 2)) then
  begin
      s:=s+c[i];
      writeln('c=',c[i]);
 end;
 end;
 writeln;
write('s=',s);
readln
end.

просто по вашему tools число -176 будет также являться удвоенным нечётным.

[tools]

да, да ошибся, все верно

[west.by]

удалено-не туда

[west.by]

не туда-сории

[savva]

эм,парень напиши вопрос по человечески

и пиши не "тстринг,тстринге,тистринге" и так далее,а по нормальному
Tstring.