Флеш-память имеет объём 1, 2 гбайт. сколько книг можно записать на съемный носитель (каждый символ кодируется 2 байтами), если каждая книга состоит из 300 страниц, на каждой странице расположено 100 строк, в каждой строке - 100 символов? (принять 1кб= 1000 байт, 1 мбайт= 1000 кбайт, 1 гб= 1000 мбайт. ) записать решение

1,2ГБайта= 1 200 000 000 байт
Каждый символ , если не в графическом виде , весит 1 байт , на странице 100 строк по 100 символов = 10 000 символов на странице и 300 страниц * 10 000 символов = 3 000 000 символов в книге , т. К. 1 символ =1 байту, соответсвенно книга весит 3 000 000 байт . Делим размер флеш-диска на размер книги 1 200 000 000: 3 000 000=400
ответ : 400 книг

100*100*300*2=6000000байт=6000Кб=6Мб=0,006Мбайт
1.2:0,006=200книг 
ответ: 200книг

ответ:Клавиату́ра — комплект расположенных в определённом порядке клавиш для управления каким-либо устройством или для ввода данных

Компью́терная мышь — координатное устройство для управления курсором и отдачи различных команд компьютеру. Управление курсором осуществляется путём перемещения мыши по поверхности стола или коврика для мыши. Клавиши и колёсико мыши вызывают определённые действия, например: активация указанного объекта, вызов контекстного меню, вертикальная и горизонтальная (в специализированных мышках) прокрутка веб-страниц, окон операционной системы и электронных документов

1. В приведенном коде ошибка. Не хватает ";" в третьей строке снизу.
2. Немного изменим ваш код и получим искомое значение x
Искомое число х = 16293

var
  x, y, a, b, k: integer;

begin
  k:=10000;
  repeat
    x:=k;
    a := 0; b := 0; y := 1;
    while x > 0 do
    begin
      if (x mod 10) mod 2 = 0
        then
        a := a * 10 + x mod 10
      else begin
        y := y * 10;
        b := b * 10 + x mod 10
      end;
      x := x div 10
    end;
    a := a * y + b;
    k := k + 1;
    until a = 26391;
    writeln(a:8, k-1:8); 
end.