function FibN(n: integer): List<Biginteger>;
begin
var (f1, f2) := (BigInteger(1), BigInteger(1));
result := Lst(Seq(f1, f2));
for var i := 3 to n do
begin
(f1, f2) := (f2, f1 + f2);
result.Add(f2)
end;
end;
begin
FibN(ReadInteger()).Println
end.
var
i,j,s,n,max:integer;
a:array[1..5,1..5]of integer;
begin
for i:=1 to 5 do
begin
s:=0;
for j:=1 to 5 do
begin
a[i,j]:=random(10);
write(a[i,j],' ');
s:=s+a[i,j];
end;
if s>max then
begin
n:=i;
max:=s;
end;
writeln;
end;
writeln;
write('Строка ',n,': ');
for j:=1 to 5 do
write(a[n,j],' ');
<span>end.</span>
Это по суди задача на поиск минимума функции на отрезке (-20;20). Функция - парабола. Аналитически можно найти ее вершину, х=1, f(1)=-64.
Во-первых, ты плохо расслышал условие.
Вместо "нестарого" файла должно быть "растрового" файла.
Растровый файл, в отличие от векторного - это файл, в котором каждый пиксел описывается отдельно, палитрой цветов.
Картинка имеет размер 1024*512 пикселей.
Если бы каждый пиксель занимал 1 байт, тогда размер файла был бы
1024*512 байт = 512 Кбайт = 0,5 Мбайта
А у нас размер файла 1,5 Мбайта, то есть в 3 раза больше.
Значит, каждый пиксел занимает 3 байта = 3*8 = 24 бита.
Эта глубина цвета называется True Color и дает
2^24 = 16777216 цветов в палитре.
