На вход программе строчные буквы. ввод этих символов заканчивается точкой, другие символы, отличные от точки и букв, во выходных данных отсутствуют. требуется написать эффективную программу, которая будет печатать в алфавитном порядке только те буквы, которые ровно три раза встретились во входной
последовательности. каждая буква должна быть распечатана только один раз. точка при этом не учитывается. например, пусть на вход следующие символы: btfgbbffjratbamaв данном случае программа должна вывести: aftпрограмма на паскаленаписать как можно проще (использовать базовые элементы
программирования)

ответ: 1

Выполним действия поль­зо­ва­те­ля в обратном порядке, на­чи­ная из C:\Транспорт\Сухопутный\Почтовый\Железнодорожный.

Под­ни­мем­ся на два уровня вверх, ока­жем­ся в C:\Транспорт\Сухопутный.

Спу­стив­шись на один уровень вниз, мы должны оказаться в ка­та­ло­ге Автомобили.

Соберём полный путь в исходный каталог: C:\Транспорт\Сухопутный\Автомобили.

Для наглядности можно набросать схему (см. картинку):

1) сначала нарисуем действия пользователя в обратном порядке (две стрелочки вверх, одну вниз)

2) потом впишем известные пункты из каталога в котором пользователь оказался (начиная с конца) и добавим каталог с которого пользователь начинал

3) путь от начала (диска С) до папки на верхнем уровне (Сухопутный) остаётся без изменений, мы просто добавляем к нему каталог с которого пользователь начал

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

var a: array[0..100,0..100] of integer;

n, m, i, j, max, col: integer;

begin

  read(n);

  read(m);  

  for i: =0 to n-1 do

  for j: =0 to m-1 do

  begin

  read(a[i,j]);

  if max< a[i,j] then max: =a[i,j];

  end;

  for i: =0 to n-1 do

  for j: =0 to m-1 do  

  if max=a[i,j] then begin inc(col); break; end;

  writeln(col);

  for i: =0 to n-1 do

  for j: =0 to m-1 do  

  if max=a[i,j] then begin write(i, ' '); break; end;    

end.