1. определить сколько трехзначных чисел кратны m. 2. определить сколько трехзначных чисел содержат цифру 3.

program z1; var a,m,n: integer; beginwriteln ('введите трехзначное число '); readln(a); writeln ('введите число m '); readln(m); if (a mod m)=0 then writeln ('числа кратные m',a) else writeln('не кратны'); if ((a mod 10)=3) div 10)mod 10)=3)or((a div 10)=3) then n: =n+1; writeln('количество чисел содержащих число 3',n); end.

 

 

 

 

 

 

 

Нас учили   такие решать с конца. смотри у тебя дано число 38 (его можно разделить на 2 или вычесть 3). поскольку оно делиться на 2 нацело используем деление. получаем 19 (на 2 не делиться следовательно вычитаем 3)=16 и т. и у тебя скорее всего опечатка, потому что как ни крут и за 5 шагов не выполнить. скорее всего нужно из числа 2 в 38. ну или решение должно занять  6 шагов, что вряд ли 1 команда 38/2=19 2 команда 19-3=16 1 команда  16/2=8 1 команда 8/2=4 1 команда 4/2=2 1 команда 2/2=1 т.к начинали с конца считать полученный набор команд записывается с конца : 111121

1) 2^4=16, номер вагона несет 4 бита информации, то будет получено 4 бита информации. 2)  k=9 бит  ,n=2^k=2^9=512, n=5123) а) 2^6=64, 6 бит4) 3,5 бит5)  12288 кбайт=12мб    1024 гб=1048576 мб      2097152 байт =2мб      222кбайт=0,22 мб    25гб=25600 мб      241байт=0,0002мб     3,2 мб= 26843545,6  бита    2 кбайт 16384 бит     24 мбайт =201326592 бит    228кбайт