Дана непустая последовательность слов из строчных латинских букв; между соседними словами – запятая, за последним словом – точка. Напечатать все буквы, которые входят в наибольшее количество слов этой последовательности.
Писать на Pascal.
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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
