Паскаль. Помогите сделать 58-ой

Паскаль. Помогите сделать 58-ой

Задать свой вопрос
1 ответ
Const e=0.001;
var a1,a2:real;n:integer;
begin
a1:=0.5;
a2:=sin(a1)/cos(a1)/2;
n:=2;
writeln(n,a2:7:4);
while абс(a2-a1)gt;=e do
 begin
 a1:=a2;
 a2:=sin(a1)/cos(a1)/2;
 n:=n+1;
 writeln(n,a2:7:4);
 end;
writeln('n = ',n);
end.

Итог:
2 0.2732
3 0.1401
4 0.0705
5 0.0353
6 0.0177
7 0.0088
8 0.0044
9 0.0022
10 0.0011
11 0.0006
n = 11
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт