Отправление Прибытие Время отправления Время прибытияОсиново Дубки 8:50 11:25Осиново Ёлкино 9:00 10:10Осиново Соснова 11:45 12:05Дубки Соснова 7:45 8:50Дубки Осиново 9:20 11:45Дубки Ёлкино 9:15 10:35Ёлкино Дубки 8:00 9:10Ёлкино Осиново 10:30 11:40Соснова Осиново 9:00 10:55Соснова Дубки 9:35 10:40Определите самое ранее время, когда мистер Фокс сможет оказаться в городке Соснова согласно этому расписанию.

Осиново Сосново там выходит ехать 20 минут

2)
N = 80             
Ic=140 бит
Найти К
 Решение: N =2(в степени I)
     80 = 2*I
       I = 7 бит
 Ic = K* I => K =140 : 7 =20 символов
3)
K = 100*20*30
N =80
Найти: Ic
Решение:  По той же формуле вычисляем размер 1 символа => I = 7 бит
Ic = K*I    Ic =100*20*30*7 = 420 000 бит =52500 байт
4) Ic = 4Kбайта
 K = 2048 
Найти: N
Решение: 4Кбайта = 4 * 2(в 13 степени) бит
   2048 = 2(в 11 степени)  . Найдем вес 1 символа :  I= Ic / K
     I = 4 * 4 = 16(сокращаешь степени)
N = 2*I дальше подставляешь под формулу)

1)  var i,d,q:integer;
begin
d:=1;
for q:=5 downto 1 do {можно и for q:=1 to 5 do но у вашем примере идет на спад , я сделал так же}
d:=d+q;
writeln(q,' ',d);
end.

2) var i,d,q:integer;
begin
d:=1;
for q:=4 downto 1 do 
d:=d+q;
writeln(q,' ',d);
end.

3)   Здесь вовсе не нужен цикл , всеравно переменная станет 1(еденицей)
var i,d,q:integer;
begin
d:=1;
q:=1;
d:=d+q;
writeln(q,' ',d);
end.

4)  Будет зацикленость , поскольку не зименяется значение q (либо ошибка в условии)
А так как нет изменений то и переработать нельзя в цикл for