Дано натуральное число. Определить:

а) сколько раз в нем встречается цифра а;

б) количество его цифр, кратных z (значение z вводится с клавиатуры; z 2,

3, 4) ;

в) сумму его цифр, больших a (значение a вводится с клавиатуры; 0 a 8) ;

г) сколько раз в нем встречаются цифры x и y.

Var

a, str:string;

k, n, i, z, m, j, c, S, x, y, l:integer;

begin

writeln ('введите число') ;

readln (str) ;

writeln ('a?') ;

readln (a) ;

writeln ('z?') ;

readln (z) ;

writeln ('x & y') ;

readln (x, y) ;

n:=length (str) ;

for i:=1 to n do

begin

if str[i]=a then

k:=k+1;

val (str[i], m, j) ;

if m mod z=0 then

c:=c+1;

if str[i]>a then

begin

val (str[i], m, j) ;

s:=s+m;

end;

val (str[i], m, j) ;

if (m=x) or (m=y) then

l:=l+1;

end;

writeln ('k: ', k,'кратное z: ', c,' s: ', s,' кол-во x, y: ', l) ;

end.