синусы и ко. циклы, вроде циклы

[Scorch92]

Всем привет! народ, мне ваш сайт очень понравился!)))) клевые чуваки помогают простым юзерам типа меня)))) такая лажа просто я вааще в школе не изучал ни паскаль ни тем более другие какие то проги... только ворд))). так вот если не сложно напишите плз прогу вот такую:
(1-sin0.1)*(1-sin0.2)*(1-sin0.3)... *(1-sin10) с помощью оператора while я честно пытался что то делать даже программу написал))) ну только там такая аброкадабра... . вот ))если что- с меня пузырь))))

[Hacker19_90]

если что- с меня пузырь

Заманчиво!!!

pr := 1.0;
i := 0.1;
while (i <> 10.0) do
begin
    pr := pr*(1-sin(i));
    i := i + 0.1;
end;

[Scorch92]

чувак! спасибо тебе ОГРОМНОЕ!!!! )) не поверишь как выручил!!!))) (блин а она оказывается даже легче чем я писал))))