Дано натуральное число. определить, сколько раз в нем встречается цифра равная последней.

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); end.

1) 24+18+12=54 (ч.) 2) 54-35=19 (ч.) не любят не один вид спорта. 3) 10+8+5=23 (ч.) - любят 2 или больше видов спорта. 4) 23-19=4 (ч.) - любят все три вида спорта.

ответ: 4 человека любят три вида спорта.

ну, в первом тексте информационный объем одного символа составляет

n=2^i

32=2^5

i=5 бит

во втором текте

64=2^6

i=6

значит, в 1,2 раза (6: 5=1,2)