Книга содержит 150 страниц. на каждой странице 40 строк. в каждой строке 60 символов (включая пробелы) найдите информационный объем текста ! !

Если для кодирования символа используется 8 бит, то объем книги:
1500*40*60*8 бит = 150*40*60*8 /8 байт = 150*40*60 байт =
150*40*60 / 1024 Кбайт = 351,5625 Кбайт = 351,5625/1024 Мбайт ≈ 0,35 Мбайт.

150 * 60 *40 = 360000 символов (всего)
1 символ = 1 байт
360000:=
1) 2880000 битов
2) (приблизительно) 352 кб
3) 0,34 мб
4) 0, 0003 гб
5) 0,0000003 терабайта Если для кодирования символа используется 8 бит, то объем книги:
1500*40*60*8 бит = 150*40*60*8 /8 байт = 150*40*60 байт =
150*40*60 / 1024 Кбайт = 351,5625 Кбайт = 351,5625/1024 Мбайт ≈ 0,35 Мбайт.  
                                                  или 
Если для кодирования символа используется 8 бит, то объем книги:
1500*40*60*8 бит = 150*40*60*8 /8 байт = 150*40*60 байт =
150*40*60 / 1024 Кбайт = 351,5625 Кбайт = 351,5625/1024 Мбайт ≈ 0,35 Мбайт.

Например, мы делаем часто чай.
1. Войти на кухню.
2. Открыть шкаф.
3. Взять чашку. 
4. Поставить ее на стол. 
5. Закрыть шкаф.
6. Взять чайник.
7. Включить газ.
8. Зажечь спичку.
9. Зажечь газ в конфорке с спички.
10. Поставить чайник на огонь.
11. Открыть шкаф.
12. Взять сахарницу.
13. Закрыть шкаф.
14. Открыть ящик. 
15. Взять ложку.
16. Закрыть ящик.
17. Набрать в ложку сахар.
18. Положить сахар в чашку.
19. Положить ложку на стол.
20. Открыть шкаф.
21. Взять пакетик чая.
22. Закрыть шкаф.
23. Положить пакетик чая в чашку.
24. Когда чайник закипел, выключаем конфорку.
25. Берем чайник.
26. Наливаем воду в чашку.
27. Ставим чайник.
28. Берем ложку.
29. Мешаем.
30. Кладем ложку на стол.
31. Пьем. 

№1

var sum, i: integer;
begin
sum := 0;
for i := 1 to 100 do
sum := sum + i;
writeln('Сумма всех чисел от 1 до 100: ', sum);
end.

№2

var p, i: integer;
begin
p := 1;
for i := 1 to 10 do p := p * i;
writeln('Произведение всех чисел от 1 до 10: ', p);
end.

№3

У вас не дано никаких условий. Вот задача для условия: "Членов прогрессии - 100, шаг - 3"

var A, i, k, max: integer;
begin
i := 3;
max := 100;
for k := 1 to max do begin
A := A + i;write( A, ' ');
end;
end.

№4

var sum, x: real;
a: array[1..10] of real;
i: integer;
begin
sum := 0;
for i := 1 to 10 do begin
write('Введите ', i, ' число: ');
readln(a[i]);
sum := sum + a[i];
end;

writeln('Сумма введенных чисел: ', sum);
end.