Кбайт больше потому что 1
1253(8) = 001 010 101 011(2)
Количество значащих нулей = 4
Это фотография, ответ под буквой а)
Var n,i,t,p:integer;
begin
readln(n);
for i:=2 to n do begin
t:=i;
p:=1;
repeat
p:=p*(t mod 10);
t:=t div 10;
until t=0;
if (p<>0)and(i mod p=0) then write(i,' ');
end;
end.
Здесь всё просто нужно:
Добавить два числа и посчитать нули : 101112+100102 = 201214 Всего 1 нуль.