Program Z_15;
VAR Num, F, F2 : longint;
var kn2 :byte;
begin
F:=0;
kN2:=0;
writeln('Enter Number');
writeln('P.S. Number > Zero');
readln(NUM);
While Num>0 do
begin
F:=num mod 10;
num:=num div 10;
if F = 2 then
KN2:=KN2 + 1;
end;
Writeln('KN2 is =',KN2);
<span>end.</span>
147/2 ост. 1
73/2 ост.1
36/2 ост 0
18/2 ост.0
9/2 ост.1
4/2 ост.0
2/2 ост. 0
1/2 ост. 1
Выписываем остатки в обратном порядке
Ответ: 10010011
1. <span>Полносвязная топология
2. Топология "Шина" (квадраты на концах - терминаторы)
3. Топология "Звезда" (В цетре - </span><span>концентратор или хаб</span>)
4. Топология "Кольцо" (Стрелкой указано направление токена)
Для 16 (2^4)
640*480*4=1228800 бит=153600 байт
512*1024=524288 байт
524288 /153600=3
Для 256 (2^8)
640*480*8=2457600 бит=307200 байт
512*1024=524288 байт
524288 /307200=1