Помогите составить программу в Pascal!

Задана последовательность слов. Определить частоту вхождения каждого из слов в последовательность.

Question

Информатика

Ксенюша

15 июня, 00:52

Помогите составить программу в Pascal!

Задана последовательность слов. Определить частоту вхождения каждого из слов в последовательность.

+4

Ответы (1)

Знаете ответ на вопрос?

Дианка · Answer 1

Var s, r, k: string;

j: integer;

begin

write ('строка: ') ; readln (s) ;

foreach k in s. Split (' '). Distinct do

begin

j:=0;

foreach r in s. Split (' ') do

if r=k then j:=j+1;

writeln ('слово ','"', k,'"',' встречается ', j,' раз') ;

end;

end.

Помогите составить программу в Pascal!Задана последовательность слов. Определить частоту вхождения каждого из слов в последовательность.

Помогите составить программу в Pascal!

Задана последовательность слов. Определить частоту вхождения каждого из слов в последовательность.