Дано натуральное число n. вычислить р=(1-1/2^2)*(1-1/3^2)**(1-1/n^2), - вопрос №376515311221132112 от Dimon200315 31.12.2021 08:15

Question

Информатика: Дано натуральное число 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.

Dimon200315 · Answer

У вас переменная u не определена при первом запуске цикла, поэтому программа берет u=0, и в итоге выходит тоже ноль. Поставьте после фора сразу:
u:=1-(1/sqr(k));а потом уже:
s:=s*u;