Дано натуральное число n. вычислить р=(1-1/2^2)*(1-1/3^2)**(1-1/n^2), где n> 2 запускает, но не считает,0.000000000е 0000 выводит. в чём ошибка? program lab51; {$apptype console} uses sysutils, math; var s,u: real; n,k: byte; begin writeln('vvedite n'); readln(n); s: =1; if n> 2 then begin for k: =2 to n do s: =s*u; //inc(k); u: =1-(1/sqr(k)); end; writeln(s); readln; end.

SUPERMARY007    2   25.06.2019 22:00    0