11) 2,3; 12) 4 (1 байт (1 байт-8 бит-2^8=256 вариаций)); 13) 2 14) 1 (чорно-біле зображення - 1 біт на точку. 100х100х1=10,000 біт.) 15) на один ЧБП приходится 4 біта, тому що 2 в 4-ій степені - це і єсть 16. Маємо 10*10 точок, тобто 100 ЧБП. Отде, файл має рощмір 4 біта помножити на 100 = 400 біт (10*10*4=400) 16) 5 (для того, щоб краще зрозуміти, візьмемо малюнок із однієї точки чорної або білої. 0-чорна, 1-біла, потрібен 1 біт інформації. Тепер, будемо кодувати точку із 4 кольорів: 0 0 - чорна, 0 1 - біла, 1 0 - червона, 1 1 синя. Потрібно 2 біта (дві ячейки, які можуть бути 1 або 0). Для точки із 8 кольорів потрібно 3 біта, (три ячейки 1 або 0) для точки із 16 кольорів потрібно 4 біта (2 в четвертій степені). Щоб закодувати чисто 256 кольорів, потрібно 8 біт (2 в восьмій степені). Щоб закодувати 100 точок (10*10=100), потрібно 8*100 =800 біт. 17) 3 18) 3 19) 3 20) 2,5
var s : string[50]; i, j, k : word; f : boolean; function isSpace(ch : char) : boolean; begin isSpace := false; if ch = ' ' then isSpace := true; end; begin f := false; repeat j := 0; writeln('введите строку, состоящую из 2 слов'); readln(s); for i := 1 to length(s) do if isSpace(s[i]) then begin inc(j); k := i; end; if j =1 then f := true; until f; write(copy(s, k + 1, length(s)), ' ', copy(s, 1, k - 1)); end. недавно такую писала :)
case a of
0:
begin
x := 1;
y := 1;
end
else
begin
x := 2;
y := 2;
end
end;