Uses
GraphABC;
var
i, k: integer;
arr: array [1..6] of color;
begin
writeln('Сколько кирпичиков?');
readln(k);
arr[1] := clPink; arr[2] := clRed; arr[3] := clGreen;
arr[4] := clBlue; arr[5] := clYellow; arr[6] := clOrange;
for i := 0 to k - 1 do
begin
SetBrushColor(arr[random(6) + 1]);
FillRectangle((i mod 16) * 40, (i div 16) * 20, (i mod 16) * 40 + 39, (i div 16) * 20 + 19);
sleep(20);
end;
end.
Стена из кирпичиков - норм?)
Вы ввели число: 10100112 в двоичной системе счисления и
хотите перевести его в десятичную.
Для этого переведем его сначала в десятичную вот так :
10100112 = 1∙26+0∙25+1∙24+0∙23+0∙22+1∙21+1∙20 = 64+0+16+0+0+2+1 = 8310
Получилось: <span>8310</span>
Результат перевода:
<span>10100112 = 8310 </span>
X mod y - это остаток от деления x на y, x div y - частное.
После выполнения первой строки значение а не изменится, значение b станет равным (349 mod 10)*100+14=9*100+14=914.
После выполнения второй строки значение a станет равным <span>(914 div 10) mod 10=91 mod 10=1
Ответ: 1
</span>
Номер 17, ответ 9
А ещё у вас ошибка вроде в 18
решение во вложении, Вам нужна только первая страница