Вот как-то так. Я в одной программе и 1) и 2) реализовал, там что не так будет-подправишь.
Преимущество исправление ошибок быстрое редокрирование акуратность
Program naconecto;vara,b,c,d:string;BEGINwriteln('a=');writeln('b=');writeln('c=');writeln('d=');readln(a);readln(b);readln(c);readln(d);if (length(a)>length(b)) and (length(a)>length(c)) and (length(a)>length(d)) then begin writeln('a uMeeT Makc gJluHy=',length(a)); endelse if (length(b)>length(c)) and (length(a)>length(d)) then begin writeln('b uMeeT Makc gJluHy=',length(b)); endelse if (length(c)>length(d)) then begin writeln('c uMeeT Makc gJluHy=',length(c)); endelse begin writeln('d uMeeT makc gJluHy=',length(d)); end;readln;END.
Я думаю, если происходит все четко последовательно, то решение таково:
X - вес файла
X/10(Мбит/с) + X/0.5(Мбит/с) = 480с.
"Домножаем на 10, тем самым избавившись от дробей"
X + 5X = 4800с.
6X = 4800с
X = 800Мбит
Подробнее - на Znanija.com - znanija.com/task/29932866#readmore