Отчаянно прошу . совсем уже не понимаю эту , и не имею понятия, как её сделать. заранее прошу прощения, за просьбу выполнить это всё за меня. ​

1. дагвжбе 2. вгба 3. 96 секунд. 4. 1875 кбайт решение 3 . известен размер файла. известна скорость передачи. чтобы найти время, надо размер файла разделить на скорость передачи. а до этого всё в единые единицы измерения, т.е. кбайты перевести в биты. для этого надо умножить на 1024 и на 8. получаем: решение 4 . аналогично 3, только надо найти размер передаваемого файла. чтобы его найти, надо скорость передачи умножить на время передачи. получаем это бит. а надо найти кбайт. для этого полученную величину надо разделить на 1024 и на 8.

Var  a,b1,b2,b3: integer; begin  writeln('введи трёхзначное число');   readln(a);   b1: =a mod 10;   b2: =(a mod 100)div 10;   b3: =a div 100;   if (b1=0) or (b2=0) or (b3=0) then writeln('среди цифр есть 0')                                                else writeln('среди цифр нет 0');       end.