Помогите, пожалуйста, с Паскалем

[-VitOS-]

Помогите, пожалуйста, с Паскалем

Помогите с задачками
1. Для заданных с клавиатуры значений переменных x вычислить

2. Определить номер первого из чисел sin x, sin(sin x), sin(sin(sin x)), ... , меньшего по модулю 10^-3.

 

[Vladimir_S]

Помогите с задачками

Да ну, скучища школьная...

1. Для заданных с клавиатуры значений переменных x вычислить

Var
 x,Z:Real;
 i:Byte;
Begin
 Write('x= ');
 Readln(x);
 Z:=1;
 For i:=2 to 10 do Z:=Z*(x+1.0*i)/i;
 Writeln('Z= ',Z:0:5);
 Readln
End.

2. Определить номер первого из чисел sin x, sin(sin x), sin(sin(sin x)), ... , меньшего по модулю 10^-3.

Const
 e=0.001;
Var
 x,y:Real;
 i:LongInt;
Begin
 Write('x= ');
 Readln(x);
 y:=Sin(x);
 i:=1;
 While Abs(y)>=e do
  begin
   y:=Sin(y);
   i:=i+1;
  end;
 Writeln('i= ',i);
 Readln
End.