Begin
write('Введите целое число n (n > 1): ');
var n := ReadInteger;
var a := 1;
var b := 1;
write(1, ' ', 1, ' ');
for var i := 3 to n do
begin
var c := a + b;
write(c, ' ');
a := b;
b := c;
end;
end.
2) кол кот .
дальше не пойму так например слоН слоГ
Информационный объем фильма I определим по формуле:
I=t*k*i*n, где t- время видео(с), k-количество пикселей экрана, i- глубина цвета (бит), n- частота обновления экрана (кадр/с.).
Глубину цвета i определяется из соотношения N=2^i, где N- количество цветов в палитре.
i=㏒₂N= ㏒₂4096= 12 бит
I=(3*60)*(1280*1024)*12*16/(8*1024*1024*1024)= 5,27 Гбайт
Задача 2.
Один кадр содержит 512 Кбайт. За секунду сменяется 24 кадр, значит объем информации за секунду: 512*24= 12288 Кбайт= 12 Мбайт
Умножив это значение на продолжительность фильма получим сколько информации содержит весь фильм
12*(30*60)= 21600 Мбайт= 21,09 Гбайт
Видимо имеется ввиду выводящий максимальны элемент этого массива
В данном примере матрица формируется при помощи случайных чисел
program MatrixMax;
Uses Crt;
type matrix=array[1..4,1..4] of real;
var m:matrix;
max:real;
{Порождение матрицы случайным образом}
procedure Auto;
var i,j:integer;
begin
randomize;
for i:=1 to 4 do
begin
for j:=1 to 4 do
begin
m[i,j]:=25+random(21);
end;
end;
end;
{Вывод матрицы на экран}
procedure PrintMatrix(mas:matrix );
var j,k:integer;
begin
for k:=1 to 4 do
begin
for j:=1 to 4 do
begin
write(mas[k,j]:7:2);
end;
writeln;
end;
end;
{Нахождение максимального элемента}
procedure Мax;
var i,j:integer;
begin
max:=m[1,1]
for i:=1 to 4 do
begin
for j:=1 to 4 do
begin
if (max<m[i,j]) then max:=m[i,j];
end;
end;
end;
begin
Clrscr;
Auto;
PrintMatrix;
Max;
writeln;
writeln('Максимальный элемент матрицы: ',max);
end.