ПОМОГИИТЕ! Дано натуральное число. Определить, сколько раз в нем встречается цифра равная последней.

Question

ПОМОГИИТЕ! Дано натуральное число. Определить, сколько раз в нем встречается цифра равная последней.

Экономика

Гость

Ответ(ы) на вопрос:

Accepted Answer

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.