Не знаю как объяснить но ответ знаю ответ 2
14
к В 2 дороги
к Е 3 дороги
к Ж 3+3+2=8
<span>Нужно определить, сколько времени будет передаваться файл объемом 5 Мбайт по каналу со скоростью передачи данные 2</span>15<span> бит/с; к этому времени нужно добавить задержку файла у Толи (пока он не получит 512 Кбайт данных по каналу со скоростью 2</span>19<span> бит/с). </span>
<span>Периведём объём информации в Мб в биты: Q = 5 Мб = 5 * 2</span>20<span> байт = 5 * 2</span>23<span> бит. </span>
<span>Время задержки: </span><span> = 512 кб / 2</span>19<span> бит/с = 2</span>(9 + 10 + 3) - 19<span> c = 2</span>3<span> c. </span>
<span>Время скчивания данных Мишей: </span><span> = 5 * 2</span>23<span> бит / 2</span>15<span> бит/с = 5 * 2</span>8<span> c. </span>
<span>Полное время: </span><span> = 5 * 2</span>8<span> c + 2</span>3<span> c = (256 * 5 + 8) c = 1288 c. </span>
<span>Ответ: 1288.</span>
1. Программа "Анкета":
program anketa;
var a,b,d:string;
c:char;
begin
writeln('Введите ваши имя и фамилию в именительном падеже: ');
readln(a,b);
writeln('Введите букву класса: ');
readln(c);
writeln('Введите ваше хобби: ');
readln(d);
writeln('Меня зовут ',a,' ',b,';');
writeln('Я учусь в 7 "',c,'" классе гимназии 524;');
writeln('Моё хобби - ',d,';');
writeln('Периметр прямоугольника равен 30');
writeln('<span>Сегодня ярко светит солнце!</span>')
end.
2. Программа "Опросы":
program oprosy;
var a,b,c:integer;
d:real;
begin
writeln('Введите ваши оценки по пятибалльной шкале: ');
readln(a,b,c);
d:=(a+b+c)/3;
writeln('Ваша средняя оценка за тесты - ',d,'.');
end.
3. Программа "Периметр прямоугольника":
program perimetr;
var a,b,c:integer;
begin
writeln('Введите стороны прямоугольника: ');
readln(a,b);
c:=(a+b)*2;
writeln('Периметр прямоугольника = ',c,'.');
end.
<h3>PascalABC.NET 3.4.2, сборка 1887 от 30.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var s := ReadlnString;
s.MatchValues('[.,:;\-()!?"]').Count.Println; // №1
(s.MatchValues('\d').Count > 0).Println; // №2
(s.MatchValues('(.)\1').Count > 0).Println; // №3
end.