10. Есепті шығарудың алгоритмін құрастыру - ...A) есепті шығарудың математикалық моделін анықтауВ) бар әдістердің ең тиімдісін таңдауС) есептің шартын, айнымалыларды сипаттауD) нәтиже алуға бағытталған әрекеттердің орындалу ретінанықтауE) алгоритмдердің кіріс немесе шығыс параметрлерін экранғашығару командасы​

1)
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.

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