Держи, если надо больше объяснений - напиши мне:
begin
var a, b:integer; //Объявляем a и b
readln(a,b); //Считываем их
for var i := 1 to 5 do write(random(b - a) + a, ' '); //Выводим рандомные числа от a до b
writeln; //Переносим строку
end.
...
Если не сложно нажми "Спасибо" ;)
Program n_1;
var r, d:integer;
begin
r:=2; d:=r*2;
writeln('Диаметр круга равен ',d);
end.
Всего 8 автомобилей ГАЗ
(где i-количество информации (округляем в большую сторону) N - количество автомобилей)
Получается 3 бита
5 автомобилей ЗИЛ - 3 бита
6 автомобилей КаМАЗ - 3 бита
3 автомобиля MAN - 2 бита
Вроде так, но без конкретных примеров сложно проверить