Напишите процедуру которая принимает параметр натуральное число N и выводит на экран две линии из N символа. Пример:
Длина цепочки: 7

1.

program xopow1;
   uses   crt;
   var  
 a, b, Sek: integer;  
begin  
writeln('Введите границы:');  
repeat    
readln(a, b);  
until b >= a;  
 clrscr;  
for a := a to b do
    begin    
Sek := a * 60;    
writeln(a, ' мин. = ', sek, ' сек.')  
end
end.

2.

program xopow2;
  uses crt; 
Var
 z:integer;
 f,x,y:real; 
Begin 
clrscr; 
Writeln;
X:=10000;
Y:=(x/100)*10;
for z:=1 to 7 do 
 Begin 
X:=x+y; 
Writeln(Z,' -й день тренировок спортсмен пробежал ',X:3:2,' Км.'); 
End; 
Writeln('Нажмите Enter...'); 
Readln; 
end.

Ну так-то вроде просто, уравнение.
Объем ролика W Мбит, при передаче каждые 6 бит превращаются в 8 бит.
Объем вырастает до 8/6*W = 4W/3 Мбит.
1-ая половина ролика, то есть 2W/3 Мбит, была передана со скор. V Мбит/сек.
2-ые 2W/3 Мбит были переданы со скоростью V+3 Мбит/сек.
Общее затраченное время T1 = 2W/(3V) + 2W/(3V+9) сек.
Если бы он скачал ролик с файлового сервера, со скоростью V-1,5 Мбит/с,
то объем ролика был бы W, потому что при файловой передаче нет преобразования каждых 6 бит в 8.
Затраченное время было бы T2 = W/(V-1,5) сек. И оно в 2 раза больше.
2*(2W/(3V) + 2W/(3V+9)) = W/(V-1,5)
Делим все на W, получаем
4/(3V) + 4/(3V+9) = 1/(V-1,5)
Избавляемся от знаменателей
4(3V+9)(V-1,5) + 4*3V(V-1,5) = 3V(3V+9)
Раскрываем скобки
12V^2 + 36V - 18V - 54 + 12V^2 - 18V = 9V^2 + 27V
Упрощаем до квадратного уравнения
15V^2 - 27V - 54 = 0
5V^2 - 9V - 18 = 0
D= 9^2 + 4*5*18 = 81 + 360 = 441 = 21^2
V1 = (9 - 21)/10 < 0
V2 = (9 + 21)/10 = 3 Мебибит в сек