//PascalABC.NET (версия 3.1, сборка 1196 от 09.03.2016)
begin
var n:=ReadInteger('Введите число элементов');
var k:=ReadInteger('Введите число k');
var a:=ArrRandom(n,10,99);
a.Println;
for var i:=0 to n-1 do
if a[i] mod k =0 then println('Кратно',k,a[i]);
end.
<span>в кодировке unicode один символ занимает 2 байта
40*60*2=4800 байт (одна страница)
</span><span>1 гигабайт =1 073 741 824 байт
224 гб= 240518168576
</span>240518168576 /4800 = 50107951,786(66) страниц текста<span>
</span><span>
</span>
Ответ:
Пока карандаши есть в коробке
Берёшь 1 карандаш
Если он простой то кладёшь в белую коробку
В противном случае кладёшь в красную коробку