Объяснение:
const nmax=15;
var a:array[1..nmax,1..nmax] of integer;
m,n,i,j,k,x,y:integer;
begin
randomize;
repeat
write('Количество строк до ',nmax,' n=');
readln(n);
until n in [1..nmax];
repeat
write('Количество столбцов до ',nmax,' m=');
readln(m);
until m in [1..nmax];
k:=-1;
for j:=1 to m do
begin
y:=1;
x:=j;
while(x>0) and(y<=n) do
begin
k:=k+1;
a[y,x]:=k;
x:=x-1;
y:=y+1;
end;
end;
for j:=2 to n do
begin
y:=j;
x:=m;
while(x>0)and(y<=n) do
begin
k:=k+1;
a[y,x]:=k;
x:=x-1;
y:=y+1
end;
end;
for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j]:4);
writeln
end;
readln
end.
Переведите на Питон, в Паскале давно не работал
21797 Кб
Объяснение:
Изображение 10 см (10/2,54 ≈ 3,94 дюймов) на 20 см (20/2,54 ≈7,87 дюймов) Общая площадь изображения составляет 3,94*7,87 ≈ 31 кв. дюйм.
Разрешающая сканера 600*1200 = 720000 точек на 1 квадратный дюйм.
У нас 31 квадратный дюйм, всего при сканировании сканер получит 31*720000= 22320000 точек.
Цвет каждой точки кодируется 1 байтом. Общий объем изображения составит
22320000 *1 = 22320000 байт, или
22320000/1024 ≈ 21797 Кб.
Все это верно если в задаче нет описки и глубина цвета действительно 1 байт а не 1 бит.
