найти ошибку в коде. q=(1+sin(0.1))(1+sin(0.2))...(1+sin(10))

Question

program Project3; 
 
{$APPTYPE CONSOLE} 
 
{$R *.res} 
 
uses 
 System.SysUtils; 
 
var 
 x, q: real; 
begin 
 x:=0.1; 
 q:=(1+sin(0.1)); 
 repeat 
 begin 
 x:=x+0.1; 
 q:=q*(1+sin(x)); 
 end; 
 until x=10; 
 writeln (q:0:5); 
end.

условия задачи: найти значение выражения 
(1+sin(0.1)(1+sin(0.2)(1+sin(0.3)(1+sin(0.4)....(1+sin(10).

Дина · Accepted Answer

поменяй строчку until x=10 на x<=10... условие цикла с пост условием неправильно описано, и если не ошибаюсь.. . синус находится в районе от -1 до 1...

Екатерина Зорина · Answer

вау? ) сам придумал?)

Любовь Дакиева · Answer

эх, если бы С++,а так не знаю

Лёля · Answer

очень инетерстно, что это, расскажите.

Ирина · Answer

на паскаль вроде как печатал? {$APPTYPE CONSOLE} 
 
{$R *.res} за что они отвечают? 
так вроде все верно