1) все идет по степеням двойки. Чтоб закодировать число 79, уже надо закодировать 128 чисел = 2^7 = 7 бит
2) 1.5 кб = 1.5*1024*8 бит = 12288 бит
12288 / 3072 = 4 бита на символ
значит мощность 2^4 = 16
3) 8*8=64 возможных варианта или мощность алфавита.
64 = 2^6 -> 6 бит на один ход
1) Выбрать подходящий цвет
2) Купить краску
3) Купить кисточку (если нет)
4) Прочитать инструкцию на краске (чтобы узнать сколько будет сохнуть краска)
5) Вскрыть банку с краской
6) Вскрыть кисточку
7) Покрасить забор
8) Закрыть банку с краской
9) Дождаться полного высыхания краски
10) Повторить пункты 5-9
var
a, b, ans: Integer;
begin
Readln(a, b);
ans := 0;
while ans * b <= a do
ans := ans + 1;
ans := ans - 1;
Write(ans,' ', a-(ans*b));
end.
Это делается с помощь цикла for либо цикла while либо цикла repeat
Цикл for:
var
i, n: integer;
begin
write ('Количество знаков: ');
readln (n);
for i := 1 to n do
write ('(*) ');
readln
end.
Цикл While
var
i, n: integer;
begin
write ('Количество знаков: ');
readln (n);
i := 1;
while i <= n do begin
write ('(*) ');
i := i + 1
end;
readln
end.
Цикл repeat
var
i, n: integer;
begin
write ('Количество знаков: ');
readln (n);
i := 1;
repeat
write ('(*) ');
i := i + 1
until i > n;
readln
end.
Uses crt;
var a, b, c, max: integer;
begin
readln(a,b,c);
writeln(a, ' ', b, ' ', c);
max := a;
if max < b then max := b;
if max < c then max := c;
writeln('max= ',max);
end.