Аноны, хелп, надо автомат получить по инфе. В чем ошибка? var zn, x, c, s, znak: real; i, n: integer;begin write('x='); readln(x); write('n='); readln(n); s := 0; n := 1; x := 1; c := c + sqrt(n x); c := sqrt(c); zn := x; for i := 1 to n do begin if odd(i) then zn := cos(zn) else zn := sin(zn); end; if odd(i) then znak := 1 else znak := -1; s := s + ((c / zn) znak); write('s='); writeln(s);end.
>>897187 (OP)9 класс :3
>>897187 (OP)Съеби, говно.
Надо было делать на хаскеле, тогда бы все сразу получилось!
>>897486ты допёк со своим хаскелем
>>897491Опушка, ты просто подумай, зачем тебе эта проверочная на паскале, если ты можешь сделать карьеру на Хаскеле?
>>897187 (OP)Ты командой ошибся при установке Haskell Platform, вместо этого какой-то паскаль код пытаешься использовать.
>>897187 (OP)> pascalThis.
>>897187 (OP)Уебывай, пидор
>>897187 (OP)Ты затираешь этой строкойn := 1;x := 1;
