:посчитайте объём книги, если известно, что в ней 300 страниц и на каждой странице по 30 строчек по 40 символов. каждый символ весит 16 бит.

ответ: 5760000
16*40=640
640*30=19200
19200*300=5760000 бит

1) 300*40*30 = 360.000
2) 360.000*16=5.760.000
3)5.760.000:1024=5.625б Сомнения в ответе всё же есть

Var
  i, a, b, n, n2, j: longint;
  s: string;
  flag: boolean;

begin
  Write('Введите через пробел границы диапазона: ');
  Readln(a, b);
  if b < a then begin n := a; a := b; b := n end;
  if a < 11 then a := 11;
  for i := a to b do
  begin
    Str(i, s);
    n := Length(s); n2 := n div 2; flag := true; j := 1;
    repeat
      flag := (s[j] = s[n - j + 1]);
      j := j + 1
    until (not flag) or (j > n2);
    if flag then Write(i, ' ')
  end;
end.

Тестовое решение:

Введите через пробел границы диапазона: 800 1500
808 818 828 838 848 858 868 878 888 898 909 919 929 939 949 959 969 979 989 999 1001 1111 1221 1331 1441

1)

var

  a: 100..999;

  a1, a2, a3: 0..9;   //а1 - сотни, а2 - десятки, а3 - единицы

 

begin

  writeln('введите натуральное трехзначное число');

  readln(a);

  a1: = a div 100;

  a2: = (a mod 100) div 10;

  a3: = a mod 10;

  writeln('полученное число:   ', a1, a3, a2);

end.

2)

var

  a: 100..999;

  a1, a2, a3: 0..9;

 

begin

   

  writeln('введите натуральное трехзначное число');

  readln(a);

  a1: = a div 100;

  a2: = (a mod 100) div 10;

  a3: = a mod 10;

  writeln('полученное число:   ', a2, a1, a3);

end.

3)

var

  a: 100..999;

  a1, a2, a3: 0..9;

 

begin 

  writeln('введите натуральное трехзначное число');

  readln(a);

  a1: = a div 100;

  a2: = (a mod 100) div 10;

  a3: = a mod 10;

  writeln('полученное число:   ', a3, a1, a2, a3);

end.

4)

var

  a: 1000..9999;

  a1, a2, a3, a4: 0..9;

 

begin

  writeln('введите натуральное четырехзначное число');

  readln(a);

  a1: = a div 1000;   //тысячи

  a2: = (a mod 1000) div 100;   //сотни

  a3: = (a mod 100) div 10;   //десятки

  a4: = a mod 10;   //единицы

  writeln('полученное число:   ', a4, a3, a2, a1);

end.

все остальное делается наподобие этого: просто в writeln меняешь местами цифры и все.