Построить логическую схему для выражения. )) и по этой схеме составить выражение a& (bvc)v¬a

схеме для выражения   a& (bvc)v¬a

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

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.