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 abs(a2-a1)>=e do
begin
a1:=a2;
a2:=sin(a1)/cos(a1)/2;
n:=n+1;
writeln(n,a2:7:4);
end;
writeln('n = ',n);
end.
Результат:
<span>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</span>
<span>время будет занимать видео файл, передаваемый с разрешением кадра 600 х 400 пикселей с 16 битовой глубиной цвета, скоростью воспроизведения 24 кадров в секунду и объемом в 10 Гбайт. Известно, что стерео звук, наложенный на видео имеет 128 уровней громкости, частота дискретизации равна 32 КГц. Відповідь: 40 мин.</span>
Объём книги
600*36*64 = <span><span><span>
1382400</span> символов
При 1 байте на символ - </span></span><span><span><span>
1382400</span> байт
64 кб/с - это килобиты в секунду?
Тогда, при 8 битах в байте, надо передать
</span></span><span><span><span>
1382400</span>*8 = </span></span><span><span><span>
11059200</span> бит
за секунду передаётся 64*1024= </span></span><span><span><span>
65536</span> бит
а времени уйдёт
</span></span>11059200/65536 = <span><span><span>
168,75
</span>с</span></span>
Var num, deg: integer;res: real;i: byte;begin write('Число: '); readln(num); deg:=6; res := 1; i := 0; while i < abs(deg) do begin res := res * num; i := i + 1 end; if deg < 0 then res := 1 / res; writeln(res); readlnend.
Тип текста; размер текста; жирный, курсивный, подчёркнутый текст; расположение текста.
Вроде бы легко!