Цирковая обезьянка еще не может быть полноценным игроком в ним, но она обучена
либо удваивать количество камней в куче, либо добавлять один.
-
2. б
метро
се на
та
2006
(і,
а
г.
— дараа
напишите программу, подсчитывающую минимальное количество действий, которые
надо совершить обезьянке, чтобы получить кучу из n камней. изначально в
распоряжении циркачки всего один камень.
t
ту
- -
-
-
-
една
там - ба
се
-
ауа
техноло
ради
алата на 17
формат ввода
карта
рет
on
arn
ap new
структуру
0
о
така,
а
кулина
а
-
е
строка, содержащая число n- необходимое количество камней в куче.
і де
матов
салам
на
формат вывода
число - необходимое количество шагов.
hebbenywe korvetteo watoa
e
2.
0
пример 1
0
neon bontana
0
2
ввод
10a
вывод
галерете
11
0
is
st
0
0
санаа
пример 2
- 5.50
ввод
вывод
если
(50)
ео
уси​

var s : string; symb : char; i : longint; begin  readln(s);   readln(symb);   if pos(symb,s)=0 then writeln('в этом слове нет этого символа')  else begin                i: =0;                 while pos(symb,s)< > 0 do begin                                                                    write(pos(symb,s)+i,' ');                                                                     i: =i+1;                                                                     delete(s,pos(symb,s),1);                                                                 end;             end;   writeln;   writeln(i); end.

компьютер телфон и иже с ними

var s: string;

begin s : = 'informatica'; writeln(s); writeln(copy(s, 3, 5)); writeln(copy(s, 6, 3)); writeln(copy(s, 8, 3)); writeln(copy(s, 8, 2) + s[5]); end.

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

i,j,n,min: integer;

begin

  read(n);

  min: =maxint;

  for i: = 1 to n do

      for j: = 1 to n do begin

          read(a[i,j]);

          if abs(a[i,j])< abs(min) then min=a[i,j];              

      end;

  for i: = 1 to n do begin

      for j: = 1 to n do begin

          a[i,j]: =a[i,j] + min

          write(a[i,j]);          

      end;

      writeln;

  end;  

end.