Объяснение:
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.
Переведите на Питон, в Паскале давно не работал
1. "Молекулы состоят из атомов!" - 27 символов.
27*16 = 432 бита = 54 байта.
2. "Я к вам пишу- чего же боле? Что я могу еще сказать?" - 51 символ.
51*16 = 816 бит = 102 байта.
3. "Любишь кататься- люби и саночки возить!" - 39 символов.
39*32 = 1248 бит = 156 байт.
4. "Семь раз отмерь, один раз отрежь!" - 33 символа.
33*5 = 165 байт (1320 бит).
В общем виде: пусть n - количество символов в тексте, i - количество бит на символ, тогда объём V будет равен V = ni.
Также следует помнить, что 1 байт - это 8 бит.
Объяснение:
Каналы передач-4-телевизор
Источник информации-2-учитель
приёмник информации-1-ноутбук
Объяснение: