Ответы и объяснения

2013-03-12T22:13:58+00:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.

var
    i, j, m: integer;
    S, P: real;

begin
    i := 1;
    while((i <= (i + 3) * (i + 3)) and (i <= 100)) do
    begin
        P := 1;
        for j := -5 to 15 do
        begin
            P := P * sin(i / sqrt(i * i + j * j));
        end;
        S := S + P;
        writeln(i:5, ' - ', S:10:3);
        i := i + 1;
    end;
end.

 

вообще получается бесконечный цикл, потому пришлось ввести второе условие