Дана непустая последовательность слов из строчных латинских букв; между соседними словами – запятая, за последним словом – точка. напечатать все буквы, которые входят в наибольшее количество слов этой последовательности. писать на pascal.

232

329

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

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

andreywwwoooandrey

Информатика

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

Var a : array['a'..'z'] of integer; t : array['a'..'z'] of boolean; m : integer; c : char; begin m : = 0; for c : = 'a' to 'z' do a[c] : = 0; repeat for c : = 'a' to 'z' do t[c] : = false; read(c); while (c < > ',') and (c < > '.') do begin if not t[c] then begin a[c] : = a[c] + 1; if a[c] > m then m : = a[c]; t[c] : = true end; read(c) end until c = '.'; for c : = 'a' to 'z' do if a[c] = m then write(c,' ') end.