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

219

275

Посмотреть ответы 2

Ответы на вопрос:

polina19812004

Информатика

4,4(39 оценок)

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