Var
y0, yk, yk1, eps, d: double;
i: integer;
begin
y0 := 0; yk1 := y0;
Write('Введите величину погрешности: ');
Readln(eps);
repeat
yk := (yk1 + 1) / (yk1 + 2);
d := yk - yk1;
if d >= eps then yk1 := yk
until d < eps;
Writeln('yn=', yk)
end.
Тестовое решение:
Введите величину погрешности: 1e-8
yn=0.618033988205325
Информацией,команды из окружающего мира называются информацией,
Program hhh54;
var i,n,x:longint;
a: array [1..100000] of longint;
begin
read (n);
a[1]:=1;
a[2]:=1;
for i:= 3 to n do
begin
a[i]:=a[i-1]+a[i-2];
write (a[i]);
end;
end.
Так и называется если не правельно то прости пожалуйста если что загугли в инете
1) Фраза "Лень делает всякое дело трудным" содержит 31 символ; <span>объем высказывания = 31*8 = 248 бит
2) </span>Строка "И трижды тот вооружен, кто прав!" содержит 32 символа; объем строки = 32*16 бит = 32*16 / 8 байт = 64 байта
3) 0,5 Кбайт = 0,5*1024 байт = 0,5*1024*8 бит
Количество символов в сообщении = 0,5*1024*8 / 8 = 512
4) Объем текста = <span>60*25*5*8 бит = 60*25*5*8 / 8 байт = 7500 байт
5) Объем рассказа = </span><span>4*48*64*8 бит = 4*48*64*8 / (8*1024) Кбайт = 12 Кбайт
6) Объем статьи = </span><span>12*64*64*16 бит = 12*64*64*16 / (8*1024) Кбайт = 96 Кбайт
7) Объем сообщения = 30*1 байт = 30*8 бит = 240 бит
8) Объем реферата = (12*</span>48*64 + 12*24*32)*2 байт = (12*48*64 + 12*24*32)*2 / 1024 Кбайт = 90 Кбайт
9) 24 Кбайт = 24*1024*8 бит. Для кодирования каждого символа используется 24*1024*8 / (8*40*64) = 9,6 ≈ 9 бит (а может быть и 8 бит).
10) 30 Кбайт = 30*1024*8 бит. Количество страниц = 30*1024*8 / (20*48*16) = 16
