Розв’язок задачі з Абрамова №79

Всі умови | Умова: Обрахувати: (1+sin 0.1)(1+sin 0.2)...(1+sin 10). (С.А. Абрамов, Г.Г. Гнездилова,Е.Н. Капустина, М.И. Селюн. Задачи по программированию. - Вологда, 2000. - №79)

program pr79;
var
  result, index : real;
begin
  index := 0.1;
  result := 1 + sin(index);
  while index <= 10 do
  begin
    index := index + 0.1;
    result := result * (1 + sin(index));
  end;
  writeln('Result:');
  writeln(result:4:25);
  readln;
end.