бесконечный цикл, ошибочка Опции

[polic]

program k;
var s:real;n,i:integer;
begin
writeln ('vedite n');
readln(n);
for I:=1 to n
n:=n+1;
s:= power((-1),n)*(n / (2*n*n -1));
writeln ('s=',s:6:4);
end. 

(for I:=1 to n) после n выводит ошибку чтото неправильно ерунда какаято что тут может быть неправильно

М

Теги - это не S, а открываешь комбобокс CODE и выбираешь язык из списка...

Сообщение отредактировано: volvo - 24.12.2006 13:06

[polic]

да всё забываю чото стоит повешаться

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