<span>Все сильнее и сильнее высокие технологии входят в нашу жизнь. Компьютеризированные телескопы, множество гаджетов- это не воспаленная фантазия писателей, а наше время. Одной из таких "фантастических чуд"- роботы. Роботы все чаще и чаще заменяют человека на множествах работ, где "железному другу" проще, чем человеку. Посредством алгоритмов роботы решают самые запутанные задачи. К примеру, роботизированный станок используется на множествах фабрик, от производства конфет и до заводов по сборке автомобилей. Почти каждая деталь сделана специальным станком, подчиняющийся алгоритмам и командам, созданных человеком!</span>
гришин-почтальон
алексеев-маляр
иванов-парикмахер
сидоров-мельник
петров-плотник
<em>ВОТ У МЕНЯ ТАК ПОЛУЧИЛОСЬ</em>
var n, p: integer;
begin
read(n);
p := 1;
repeat
p := n mod 10 * p;
n := n div 10;
until n = 0;
write(p)
end.
При помощи length()
Например так:
ar
s: string;
len: byte;
begin
write('Input string: ');
readln(s);
len := length(s);
writeln('Its lenght is ', len,' characters.');
readln
end.
Здесь s - сама строка, а длина будет выведена в переменной len
Так, адача похожая на предыдущую
Переведем килобайты в биты:
100 килобайт * 1024 байта в килобайте = 102400 байт.
переведем в биты:
102400 * 8 бит в байте = 819200 бита в сообщении.
Добавим избыточность. Нам по условию надо добавить 20% информации
819200*1.20 = 983040 бит надо передать.
Рассмотрим пропускную способность канала
10 мегабит\секунду. переведем в килобиты:
10*1024 килобит в мегабите = 10240 килобит в секунду.
переведем в биты в секунду = 10240*1024 = 10485760 бит в секунду
разделим, чтобы определить время:
983040 бит / 10485760 бит в секунду = 0.09375 секунд
ответ: 0.09375 секунд