Program z1;
Var c,i:integer;
Begin
Read (n,i);
If not(c=2) then
For i to 0 do
begin
c:=c+1;
i:=i-2;
end;
writeln(n);
end.
Похоже на то, что ящик ждет на вход только число и выводит 1. если оно нечетное и 0 - если четное. Если на вход задано не число, то ящик выводит "Не могу".
В пустой строке 0.
1. Определяем количество точек в изображении
(5×24)×(4×24) = 24²×5×4 = 20×24² = 20×576=11 520
2. Определяем глубину цвета в битах
8192 < 15000 < 16384; 2¹³ < 15000 < 2¹⁴ ⇒ потребуется 14 бит.
3. Определяем объем памяти
11 520 × 14 = 161 280 бит = 161280/8 = 20 160 байт = 20160/1024 ≈ 19.7 Кбайт
Так что ли?
var
a:integer;
b:longint;
begin
a:=3*3;
b:=3*3;
writeln('integer = ',a);
writeln('longint = ',b);
<span>end.</span>
Верный ответ 1
сместиться на (-12 -8)
За 1 чикл положение чертежника меняется на
(-2+3+2; -1+2+1)=(3;2)
Это повторяется 4 раза
(3*4;2*4)=(12;8)
нам нужно вернуться, следовательно совершить обратное действие (-12;-8)
Либо можно просто нарисовать.