Текст содержит 32 страницы, на каждой странице 32 строки, в каждой строке 25 символов. информационный объём статьи 25 кб. определите мощность алфавита.

32*32*25=25600
25600:25=1024

а) 370₁₀ = 101110010₂

б) 244₁₀ = 340₈

в) 670₁₀ = 29E₁₆

Объяснение:

а)

370 / 2  = 185 + остаток 0

185 / 2  = 92 + остаток 1

92 / 2  = 46 + остаток 0

46 / 2  = 23 + остаток 0

23 / 2  = 11 + остаток 1

11 / 2  = 5 + остаток 1

5 / 2  = 2 + остаток 1

2 / 2  = 1 + остаток 0

1 / 2  = 0 + остаток 1

записываем остатки снизу вверх

370₁₀ = 101110010₂

б)

224 / 8  = 28 + остаток 0

28 / 8  = 3 + остаток 4

3 / 8  = 0 + остаток 3

записываем остатки снизу вверх

244₁₀ = 340₈

в)

670 / 16 = 41 + остаток 14

41 / 16 = 2 + остаток 9

2 / 16 = 0 + остаток 2

записываем остатки снизу вверх

670₁₀ = 29E₁₆

В качестве цифр шестнадцатеричной системы счисления обычно используются цифры от 0 до 9 и латинские буквы от A до F.

A₁₆ = 10₁₀   B₁₆ = 11₁₀   C₁₆ = 12₁₀   D₁₆ = 13₁₀   E₁₆ = 14₁₀   F₁₆ = 15₁₀  

1.                                                        

program raf105;

var a,sum:integer;

begin

writeln('Вводите числа по очереди');

writeln('Чтобы закончить введите 0');

repeat

 readln(a);

 sum+= a;

until a=0;

writeln('Сумма: ',sum);

end.

2.                                                        

program raf105;

var

s:string;

i,k,j:integer;

poli:boolean;

begin

poli:= true;

write('Введите слово: ');

readln(s);

s:= lowercase(s);

k:= length(s) div 2;

j:= k*2+1;

if (length(s) mod 2)<>0

 then j+= 1;

for i:=1 to k do

begin

 j-=1;

 if poli

   then poli:= s[i] = s[j];

end;

if poli

 then writeln('Слово - палиндром')

 else writeln('Слово - не палиндром');

end.

 

3.                                                        

program raf105;

var a:array[1..10] of integer;

x,i:integer;

begin

writeln('Вводите 10 чисел по очереди');

for i:=1 to 10 do

 readln(a[i]);

write('Введите искомое число: ');

readln(x);

write('Индексы совпадающих элементов: ');

for i:=1 to 10 do

 if a[i] = x

   then write(i,' ');

end.

4.                                                        

program raf105;

var a:integer;

begin

write('Введите номер дня недели: ');

readln(a);

case a of

 1: writeln('Это Понедельник');

 2: writeln('Это Вторник');

 3: writeln('Это Среда');

 4: writeln('Это Четверг');

 5: writeln('Это Пятница');

 6: writeln('Это Суббота');

 7: writeln('Это Воскресенье');

end;

end.

5.                                                        

program raf105;

var a:array[1..100] of integer;

i,o,x: integer;

begin

writeln('Вводите числа по очереди');

writeln('Чтобы закончить введите 0');

repeat

 o+= 1;

 readln(a[o]);

until a[o]=0;

o-= 1;

writeln('Введённые числа в обратном порядке:');

for i:=o downto 1 do

 writeln(a[i]);

end.