Вкниге 40 страниц , на каждой странице 60 строчек , в каждой строчке 50 знаков , n=128 , какой информационный объём всей книги ?

253

428

Посмотреть ответы 2

Ответы на вопрос:

flvby213

Информатика

4,6(7 оценок)

3040 вот ответ пойдет надеюсь

kolyaan321

Информатика

4,8(96 оценок)

Const n=50; var f: text; s: string; ss: array of string; a: array[1..n] of string; i,j: integer; begin assign(f,'input.txt'); reset(f); j: =0; while not eof(f) do begin readln(f,s); ss: =s.split(' '); for i: =0 to length(ss)-1 do if length(ss[i])> 1 then if rightstr(ss[i],2)='of' then begin inc(j); a[j]: =ss[i] end; end; close(f); for i: =1 to j do write(a[i],' '); writeln end. тестовое решение: 123of asdfdsof dasof есть решение и покороче, но совсем не уровня начинающих: uses system.text.regularexpressions; const n=50; var f: text; s: string; a: array[1..n] of string; i,j: integer; begin assign(f,'input.txt'); reset(f); j: =0; while not eof(f) do begin readln(f,s); foreach var m: match in regex.matches(s,'\b\s+of\b') do begin inc(j); a[j]: =m.value end; end; close(f); for i: =1 to j do write(a[i],' '); writeln end.