Сколько секунд потребуется модему, сообщения со скоростью 14400 бит/с.чтобы передать цветное растровое изображение размером 640 на 480 пикселей, при условии, что цвет каждого пикселя кодируется 24 битами?

14400бит\8 = 1800байт/c (1 байт = 8 бит(это для простоты решения)) 640*480 = 307200 (всего пикселей) 24бит\8 = 3байт (нужно, тк мы уже начали переводить в байты - для простоты)  307200*3 = 921600байт (всего байт в изображении) 921600\1800 = 512 сек ответ: 512 сек

program westdog; uses crt; const n=10; var   a: array [1..10] of integer;   i,j,temp: integer; begin  writeln('*** alphaues is ***');   writeln('***                  ok                        ***');   writeln();

  randomize;   writeln('элементы массива: ');   {создание и вывод массива}  for i: =1 to n do      begin          a[i]: =random(11)-5;           write (a[i]: 5);       end;   {сортировка массива методом прямого обмена}  for i: =1 to n-1  do      for j: =i+1 to n do          if a[i]> a[j] then              begin                  temp: =a[i];                   a[i]: =a[j];                   a[j]: =temp;               end;   writeln();   writeln('результат: ');   for i: =1 to n do      write(a[i]: 5); end.

Program prostoe;   uses  crt;   var  i, {возможный делитель}  number : integer; {исследуемое число}  begin  clrscr;   writeln (‘какое число должно быть проверено? ‘);   read (number);   i : = 1;   repeat  i : = i+1;   until number mod i = 0;   if number=i  then  writeln (number,’ является простым‘)  else  writeln (number,’ делится на ‘,i);   readln;   end.