49,152 бит = 49,152/2^3 байт = 6,144 байт
6,144 байт = 6,144 /2^10 КБ = 0,006 КБ
49,152 бит = 6,144 байт = 0,006 КБ
6КБ = 6*2^10 байт = 6144 байт
6144 байт = 6144 * 2^3 бит = 49152 бит
6КБ = 6144 байт = 49152 бит
Var a,c,l,w1,w2,w3 : longint;begin readln(a,c); w1:=0; w2:=0; w3:=0; l:=a mod 10; while a>0 do begin if a mod 10=c then w1:=w1+1; if a mod 10=l then w2:=w2+1; if a mod 2=0 then w3:=w3+1; a:=a div 10; end; writeln(w1,' ',w2,' ',w3);<span>end.
</span>
Uses crt;
var n,mult,i,ans:integer;
begin
read(n);
mult:=1;
for i:=2 to n do
mult:=mult*i;
while mult mod 10=0 do begin
inc(ans);
mult:=mult div 10;
end;
writeln(ans);
<span>end.</span>
<span>думаю, да, это что-то типа "молодец, возьми с полки пирожок". Сделано для того, чтоб ученикам не казалось, что они делают это просто так, а всё же что-то за это получают. </span>