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

24 бита = 3 байта занимает каждый пиксель.(хотя в решении лучше использовать биты, а не байты) 640*480*24=7372800 бит - размер файла.  7372800/14400 = 512 секунд

// pascalabc.net 3.1, сборка 1204 от 24.03.2016 begin   var lvl: =0;   var s: = 'ebeeeeebeeebeeeebeeeeeeebbeeeeeebbebeebbebbebeeeebbbbeebeeeeeeebeebbbeebbbeeeebbeebeeeebbebbbbebebee';   var prede: =false;   foreach var c in s do       if c='e' then begin           if prede then begin prede: =false; lvl+=1 end           else prede: =true           end       else           if c='b' then begin prede: =false; lvl+=1 end;   writeln(lvl,' level') end. результат выполнения программы 63 level и второй вариант, "как не учат в школе": // pascalabc.net 3.1, сборка 1204 от 24.03.2016 begin   var s: = 'ebeeeeebeeebeeeebeeeeeeebbeeeeeebbebeebbebbebeeeebbbbeebeeeeeeebeebbbeebbbeeeebbeebeeeebbebbbbebebee';   writeln(regex.matches(s,'e[eb]|b').count,' level') end. результат выполнения аналогичный.

Program  proga; var  str1,str2,str3: string; input: text; begin assign(input,'file.txt'); reset(input); readln(input,str1);   readln(input,str2);   readln(input,str3); if(length(str1)> length(str3)and length(str3)) then writeln('1  строка  самая  длинная'); else if length(str2)> length(str3) and  length(str1) then   writeln('2 строка самая длинная');   else if length(str3)> length(str1) and length(str2) then writeln('3  строка  самая  длинная'); close(input); end. p.s файл со строками надо предварительно создать в папке с exe файлом программы