Может быть этот сайт вам как-то поможет
http://pas1.ru/taskcycle
1) бит; байт; килобайт; мегабайт; терабайт
2)11 букв*8 бит=88 бит
3) 1024 кб > 10000 бит
2мб > 2000байт
1кб=8192бита
4) 251:2=125 остаток 1
125:2=62 остаток 1
62:2=31 остаток 0
31:2=15 остаток 1
15:2=7 остаток 1
7:2=3 остаток 1
3:2=1 остаток 1
Остается 1. Записываем 1 и остатки в обратном порядке 11111011
77:2=38 остаток 1
38:2=19 остаток 0
19:2=9 остаток 1
9:2=4 остаток 1
4:2=2 остаток 0
2:2=1 остаток 0
Остается 1. Записываем 1 и остатки в обратном порядке 1001101
Program Zvezda;
Uses GraphABC;
begin SetBrushColor(clYellow); Line(290, 111, 240, 190); Line(240, 190, 171, 190); Line(170, 190, 241, 250); Line(241, 250, 209, 320); Line(209, 320, 290, 289); Line(290, 289, 369, 318); Line(369, 318, 340, 248); Line(340, 248, 410, 190); Line(410, 190, 340, 190); Line(340, 190, 289, 111); Line(289, 113, 289, 289); Line(242, 249, 341, 190); Line(340, 249, 242, 190); Line(171, 191, 290, 220); Line(291, 220, 411, 191); Line(209, 319, 290, 222); Line(290, 222, 369, 321); End.
Program Nuli;
uses Crt;
const M=8;
type Mat = array [1..M,1..M] of integer;
var i,j: integer;
A: Mat;
begin
ClrScr;
WriteLn ('Old Massiv:');
for i:=1 to M do
begin
for j:=1 to M do
begin
A[i,j]:=10+random(90);
Write(A[i,j]:4);
end;
WriteLn;
end;
WriteLn;
WriteLn ('New Massiv:');
for i:=1 to M do
for j:=1 to M do
if j<=(M-i) then A[i,j]:=0;
for i:=1 to M do
begin
for j:=1 to M do
begin
Write(A[i,j]:4);
end;
WriteLn;
end;
WriteLn;
ReadLn;
end.