Написать программу на abc pascal: дан текстовый файл f. найти слова, заканчивающие на of

211

370

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

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

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.