var
x, y: byte;
begin
readln(x);
repeat
if (x div 3 > 0) then
begin
write(3:2);
x -= 3;
end
else
if (x div 2 > 0) then
begin
write(2:2);
x -= 2;
end
else
if (x > 0) then
begin
write(1:2);
x -= 1;
end;
until (x = 0);
<span>end.</span>
Проходная сеть и беспроводная сеть.
Program n_1;
var n, i:integer;P, b, s: real;
begin
read(n, P);
s:=0;
for i:=1 to n do begin
read(b);
if b>P then s:=s+b;
end;
writeln(s:0:10);
end.
Дано:
Мулььи N=16;120
Пульти N=32;96
Найти i
Решение. N=2i
1)16=2i, i=4(бит) на 1 символ в племени Мульти
2) 32=2i=i=5(бит) на 1 символов в племени Пульти
3) 120*4=480(бит) сообщение племени Мульти
4)96*5=480(бит) сообщение племени Пульти
Ответ: они равны)
Ответ: Если фрагмент сработает только один раз и это не цикл то a:=19