Коли виникає необхідність введення проміжних даних?

албания- тирана

бельгия- брюссель

венгрия- будапешт

греция- афины

лихтештейт- вадуц

2 единицы т.к 1025=10000000001 в двоичной системе счисления

var ch,n,i: longint;

ch1,s: string;

begin

  read(s,ch);

  n: =length(s);

  writeln(n,' ',ch);

  str(ch,ch1);

  for i: =1 to n do if s[i]=ch1 then write(i,' ');

end.

1) 28

2) 6

3) 5

4) 1

5) 7

6) 27

итого:

1, 6, 5, 2, 3, 4.