Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
program xxx;
var i, k, d, e, s : integer;
begin
k: =0;
for i: = 10 to 99 do
d: = i div 10;
e: = i mod 10;
s: =d + e;
if i mod s = 0 then k: =k+1
end;
write ('кол-во чисел которые делятся на сумму своих цифр=', k);
readln
end.
2 единицы т.к 1025=10000000001 в двоичной системе счисления
пион-пониадрес-средалапа-апалполучить-поучить карета-ракета
каприз-приказ
калоша-ладошка
мошкара-рамашка
v=i*k (объем=глубина цвета * кол-во точек)
i=10, т.к. 1024=2¹⁰
k=100*(15*18)=27000 точек
v=10*27000=270000 бит = 33 килобайт (1 килобайт = 8192 бит)
Популярные вопросы