Распишем итерационно алгоритм выполнения программы:
a=20, b = 3.
b = div(a, b) + b // b = div(20, 3) + 3 = 6 + 3 = 9.
c = mod(a, b) + a // c = mod(20, 9) + 20 = 2 + 20 = 22.
Ответ: с = 22.
Прошу прощения, что грязно написано, но работать должно правильно)
1. 512 байт = 512*8 бит
Память для хранения одного пикселя = 512*8/(64*64) = 1 бит
Число цветов в палитре = 2^1 = 2
2. При использовании 16777216 цветов для хранения одного пикселя требуется log(2)16777216 = 24 бита = 3 байта. Для хранения изображения размером 1600*1200 пикселей необходимо 1600*1200*3 байт = 1600*1200*3/1024 Кбайт = 5625 Кбайт = 5625/1024 Мбайт ≈ 5,5 Мбайт. Ответ: подойдет видеокарта с памятью 64 Мбайт
3. При использовании 256 цветов для хранения одного пикселя требуется log(2)256 = 8 бит = 1 байт. Для хранения изображения размером 512*512 пикселей необходимо 512*512*1 байт = 512*512/1024 Кбайт = 256 Кбайт
function Contains0(n : integer): boolean;
begin
while n > 0 do
if n mod 10 = 0 then
begin
Result := True;
Exit
end
else
n := n div 10;
end;
begin
var M := ArrRandom(22, 1, 999);
M.Println;
var k := 0;
M.Where(p -> Contains0(p)).Foreach(p -> begin Print(p); Inc(k) end);
Writeln(NewLine, k)
end.