Var s: string; p, nb: integer; begin write('text? '); readln(s); p : = 1; while p < = length(s) do begin while (s[p] = ' ') and (p < = length(s)) do inc(p); if (p < = length(s)) and (s[p] = 'b') then inc(nb); while (s[p] < > ' ') and (p < = length(s)) do inc(p); end; write('num words: ', nb); end.
Спасибо
Ответ дал: Гость
на вход "черного ящика"подается число 125. о чем в этом случае говорит отказ: кажеться а
Ответ дал: Гость
скор передачи=объём файла/время,отсюда объём файла =скорость*время,т.е. 512000 * 16=8192000 бит,затем преводим все в кбайты: 8192000/8/1024=1000 кбайт
Популярные вопросы