Что было основным носителем информации в египте?

основным носителем в египте был-папирус.

папирус.был только один недостаток что он со временем темнел ми ломался

Вот решение на языке Паскаль:

less

Copy code

program CountLessThanFive;

var

 B: array[1..10] of Integer;

 Count, i: Integer;

 

begin

 // Заполняем массив случайными числами от 0 до 9

 for i := 1 to 10 do

   B[i] := Random(10);

   

 Count := 0;

 

 // Подсчитываем количество элементов меньше 5

 for i := 1 to 10 do

   if B[i] < 5 then

     Count := Count + 1;

     

 // Выводим результат

 Writeln('Количество элементов меньше 5: ', Count);

end.

Программа создает массив B из 10 элементов и заполняет его случайными числами от 0 до 9. Затем программа перебирает все элементы массива и увеличивает счетчик Count на 1, если элемент меньше 5. В конце программа выводит количество элементов меньше 5.

Объяснение:

1) Чтобы определить максимальное из семи целых чисел, можно использовать цикл for и переменную-счетчик, чтобы получить каждое число от пользователя. Затем, можно использовать условие if, чтобы сравнить каждое число с максимальным числом, которое было введено до этого. Если текущее число больше, чем максимальное, то максимальное число обновляется.

```
max_num = float('-inf')
for i in range(7):
num = int(input("Введите число: "))
if num > max_num:
max_num = num
print(f"Максимальное число: {max_num}")
```

2) Чтобы определить, сколько подушек сможет пошить швея, нужно разделить длину ткани на длину одной подушки. При этом, нужно учитывать, что швея может использовать только целое количество ткани для каждой подушки. Это можно сделать с операции целочисленного деления //.

```
L = int(input("Введите длину ткани: "))
P = int(input("Введите длину подушки: "))
num_pillows = L // P
print(f"Швея может пошить {num_pillows} подушек")
```