Var b:array [1..255] of integer;
a, i, n:integer;
begin
readln(a);
i := 0;
while (a >= 1) do
begin
i := i + 1;
<span> b[i] := a mod 2;
</span><span> a := a div 2;
</span> end;
<span> n := i;
</span><span> for i := n downto 1 do </span><span>write(b[i]);
</span><span>end.
Проверено:)</span>
Ответ: 5
В первый раз при прохождении цикла i = 0, затем проверяется верно ли, что i<2 (а это верно) и начинается выполние цикла, пока i<2.
После первой итерации:
i = 1
S = 1
После второй итерации:
i = 2
S = 5
Третья итерация не начнётся, т. к. i = 2, что не удовлетворяет условию цикла.
P. S. итерация - это один шаг в цикле
Var
s:integer;
x:real;
begin
repeat
begin
write('Сколько всего журавликов сделали: ');
readln(s);
if s mod 6<>0 then writeln('Они не могли сделать столько, противоречит условию')
end
until s mod 6=0;
x:=s/6;
writeln('Петя и Сережа сделали каждый по ',x);
writeln('Катя сделала ',4*x)
<span>end.</span>
Всего в изображении
45 * 20 = 900 точек. Если в палитре
265 цветов, то на хранения одной точки понадобится
![log_{2}256=8](https://tex.z-dn.net/?f=log_%7B2%7D256%3D8)
бит (
1 байт). Следовательно, информационный объём изображения равен
900 * 8 = 7200 бит или же
~7.03 байт.