Статья, набрнная на 48 страниц, на каждой странице 40 строк, в каждой строке 40 символов. каждый символ кодируется 8 битамикаждый символ кодируется 16 битами. определите размер следующего предложения: вознёсся выше он главою непокорной александрийского столпа. решить ​

Первая задача:

У нас 48 страниц, на каждой 40 строк, следовательно 48 * 40 = 1920 строк всего

У нас 1920 строк, в каждой 40 символов, следовательно 1920 * 40 = 76800

У нас 76800 символов, каждый символ кодируется 8 битами, следовательно 76800 * 8 = 614400 бит всего

ответ: 614400 бит = 76800 байт = 75 Кбайт (в 1 байте 8 бит, а в 1 Кбайте 1024 байта)

Вторая задача:

1 слово = 8 символов

2 слово = 4 символа

3 слово = 2 символа

4 слово = 6 символов

5 слово = 10 символов

Пробелы = 4 символа (пробел считается символом)

Значит всего: 8 + 4 + 2 + 6 + 10 + 4 = 34 символа

У нас 34 символа, каждый кодируется 16 битами, следовательно 34 * 16 = 544 бита

ответ: 544 бита = 68 байт (в 1 байте 8 бит)

1. Для нахождения НОД используем алгоритм Евклида.

var
  a, b, i: integer;

begin
  Write('Введите два натуральных числа '); Readln(a, b);
  while b <> 0 do
  begin
    a := a mod b;
    i := b; b := a; a := i
  end;
  Writeln('НОД этих чисел равен ', a)
end.

Тестовое решение:
Введите два натуральных числа 3264 1296
НОД этих чисел равен 48

2. Тут все намного проще, алгоритм очевиден.

var
  a, i: integer;

begin
  Write('Введите натуральное число '); Readln(a);
  i := 2;
  while (a mod i) <> 0 do i := i + 1;
  Writeln('Минимальный делитель равен ', i)
end.

Тестовое решение:
Введите натуральное число 187
Минимальный делитель равен 11

Var n,a,b,i,min:integer;
mass:array[1..100000] of integer;
begin
writeln('Введите кол-во элементов массива');
read(n);
writeln('Введите числа');
for i:=1 to n do// задаем массив пока i не станет равно n (i:=i+1 )
read(mass[i]);//считываем массив с индексом i
min:=mass[1];// обозначаем первый элемент массива за первый
b:=1;// индекс от первого элемента массива
for i:=1 to n do//цикл задаем массив пока i не станет равно n (i:=i+1 )
if mass[i]<min then begin//при условии что массив будет меньше первого числа то
b:=i;// обозначаем индекс
min:=mass[i];// обозначаем новый минимальный массив
end;
for i:=1 to b-1 do// задаем массив пока i не станет равно b-1 (i:=i+1 ); и еще b-1 значит чтобы само число b не входило в цикл
mass[i]:=mass[i]*mass[b];// домножаем на меньший массив
writeln('Полученный массив');// вывод массива
for i:=1 to n do
write(mass[i]:6);
end.