3бочки с водой - 12 литров, 7 литров, 5 литров. двенадцати литровая бочка полностью заполнена. надо переливать так чтобы в двенадцати литровой и в семи литровой окозалось по 6 литров.

(a, b, c) означает, что в 12-литровой a литров, в 7-литровой b, а в 5-литровой c. 0) (12, 0, 0) 1) (7, 0, 5) 2) (7, 5, 0) 3) (2, 5, 5) 4) (2, 7, 3) 5) (9, 0, 3) 6) (9, 3, 0) 7) (4, 3, 5) 8) (4, 7, 1) 9) (11, 0, 1) 10) (11, 1, 0) 11) (6, 1, 5) 12) (6, 6, 0)

  суть алгоритма:

0) счётчик   одинаковывых цифр   устанавливаем в с: =0;  

 

  1) организуем цикл от 1 до 63 

  2) каждое из этих чисел переводим в 4-ичную систему счисления 

3) переводим 4-ичное число в   строку.

4) если длина строки =2 символа то сравниваем второй и первый символ 

                      если равны то c: =c+1;

5)   если длина строки =3 символа то сравниваем второй и третий символ 

                      если равны то c: =c+1;  

6) печать результата 

  7) выход

 

  program count;

  uses crt;   var i,c,l: integer;   s,s2: string; function fromdec(n: string; radix: longint): string; var s: string; i,m: longint; const digit: string[36]='0123456789abcdefghijklmnopqrstuvwxyz'; beginm: =0; for i: =1 to length(n) do m: =m*10+(ord(n[i])-48); s: =''; repeat s: =digit[(m mod radix)+1]+s; m: =m div radix; until m=0; fromdec: =s; end; function inttostr(i: longint): string; var s: string[11]; begin str(i, s); inttostr : = s; end;

{основная программа}begin clrscr; c: =0; for i: =1 to 63 do begin s2: =inttostr(i); s: =fromdec(s2,4); l: =length(s); if (l=2) then if (s[2]=s[1]) then c: =c+1; if (l=3) then  if (s[l]=s[l-1]) then c: =c+1; end; writeln('количество одинаковых: ',c);   readkey; end.

 

 

 

 

 

  uses crt; var     arr : array [ 1.. 20 ] of integer;     max ,q ,maxq : integer; begin writeln ( 'array: ' ); for q : = 1 to 20 do           begin           arr [q ] : =random ( 80 );           writeln (q : 2 ,arr [q ] : 6 );           end; max : =arr [ 1 ]; for q : = 2 to 20 do     if arr [q ]> max then         begin         max : =arr [q ];         maxq : =q;         end; writeln; write ( 'max = ' ,max , ' (п. номер ' ,maxq , ')' ); end.