1.даны два числа a и b. если a> b найти их разность и частное. если a

Второе : var a,b,y: integer; begin read(a,b,y); if ((y< a) and (y> b)) or ((y> a) and (y< b)) then writeln('принадлежит') else writeln('не принадлежит'); end.

a - 11010000 10110000

б - 11010000 10110001

в - 11010000 10110010

г - 11010000 10110011

д - 11010000 10110100

е - 11010000 10110101

ё - 11010001 10010001

ж - 11010000 10110110

з - 11010000 10110111

и - 11010000 10111000

й - 11010000 10111001

к - 11010000 10111010

л - 11010000 10111011

м - 11010000 10111100

н - 11010000 10111101

о - 11010000 10111110

п - 11010000 10111111

р - 11010001 10000000

с - 11010001 10000001

т - 11010001 10000010

у - 11010001 10000011

ф - 11010001 10000100

х - 11010001 10000101

ц - 11010001 10000110

ч- 11010001 10000111

ш - 11010001 10001000

щ - 11010001 10001001

ъ - 11010001 10001010

ы - 11010001 10001011

ь - 11010001 10001100

э - 11010001 10001101

ю - 11010001 10001110

я - 11010001 10001111

Цифры:

1 - 110001

2 - 110010

3 - 110011

4 - 110100

5 - 110101

6 - 110110

7 - 110111

8 - 111000

9 - 111001

10 - 110001 110000

Ошибка - 0000000000000000

Program delehka(input,output);     var a: array[1..1000010] of longint;   i,n,s,ma,mi,sl: longint; begin   assign(input,'input.txt');     reset(input);   assign(output,'output.txt');   rewrite(output);   readln(n);   mi: =(1 shl 30);   ma: =-(1 shl 30);   for i: =1 to n do begin read(a[i]);   ma: =max(ma,a[i]);   mi: =min(mi,a[i]);   end;   if ma=mi then write(0,'',n,'',0)   else   begin for i: =1 to n do    begin   if a[i]=ma then s: =s+1;   if a[i]=mi then sl: =sl+1;   end;   writeln(s,' ',sl,' ',n-s-sl);     close(input);   close(output); end; end.