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
Var
n,m,max,min:integer;
Begin
write('Введите число: ');
readln(n);
min:=9;
max:=0;
while n>0 do
begin
m:=n mod 10;
if m<min then min:=m;
if m>max then max:=m;
n:=n div 10; end;
writeln('Максимальное число: ',max);
writeln('Минимальное число: ',min);
End.
2)
var
i,count: integer;
n,s:string;
begin
writeln('Введите число: ');
readln(s);
writeln('Введите цифру: ');
readln(n);
for i:=1 to length(s) do
if(s[i]=n)then
count:=count+1;
writeln('Количество раз, когда встречается цифра = ',count);
end.