Радиопередатчик в течение 5 минут передавал информационное сообщение со скоростью 40 байт в секунду. сколько символов содержало данное сообщение, если установлено, что использовался алфавит из 48 символа?

Олимпиада? я тоже ее пишу, эту решил. как насчет обмена ответами?

1): с: \учеб­ный\ин­фор­ма­ти­ка\ко­ди­ро­ва­ние ->     с: \учеб­ный\ин­фор­ма­ти­ка ->       с: \учеб­ный ->       с: \учеб­ный\ин­фор­ма­ти­ка ->       с: \учеб­ный\ин­фор­ма­ти­ка\ко­ди­ро­ва­ние ->       с: \учеб­ный\ин­фор­ма­ти­ка ->       с: \учеб­ный -> не подходит, т.к.  витя опустился на n уровней, а поднялся на    n+2, что не подходит по условию. 2)с: \учеб­ный\ин­фор­ма­ти­ка\ко­ди­ро­ва­ние ->       с: \учеб­ный\ин­фор­ма­ти­ка ->     с: \учеб­ный ->     с: \учеб­ный\ин­фор­ма­ти­ка ->       с: \учеб­ный\ин­фор­ма­ти­ка\про­грам­ми­ро­ва­ние->     с: \учеб­ный\ин­фор­ма­ти­ка\про­грам­ми­ро­ва­ние\пас­кальне  подходит, т.к.  витя спустился на либо на 2  уровня вниз, либо на 3, а поднялся либо на 3, либо на 4 уровня вверх, что не подходит по условию. 3) с: \учеб­ный\ин­фор­ма­ти­ка\ко­ди­ро­ва­ние ->     с: \учеб­ный\ин­фор­ма­ти­ка ->       с: \учеб­ный ->       с: \учеб­ный\ма­те­ма­ти­ка ->       с: \учеб­ный\ма­те­ма­ти­ка\дробиподходит.  витя  опустился на 2 уровня вниз и поднялся на 2 уровня вверх. 4)с: \учеб­ный\ин­фор­ма­ти­ка\ко­ди­ро­ва­ние ->       с: \учеб­ный\ин­фор­ма­ти­ка ->     с: \учеб­ный ->     с: \ ->     с: \учеб­ный\ ->     с: \учеб­ный\ин­фор­ма­ти­кане подходит, т.к.  витя спустился на 3 уровня вниз, а поднялся на 2,  что не подходит по условию. ответ: 3)

Var  mas: array[1..7] of integer; k, i, max: integer; begin for i: =1 to 7 do     begin     writeln('введите число');     readln(mas[i]);       end; max: =mas[1]; k: =1; for i: =2 to 7 do     begin       if mas[i] > max            then                    begin                        max: =mas[i];                           k: =1;                   end            else                        if max=mas[i]                              then k: =k+1;     end; writeln(); writeln('максимальное значение = ', max); writeln('количество элементов = ', k); readln(); end.