a64.pas

来自「This ar the basic programs that i did in」· PAS 代码 · 共 21 行

var n,s:integer;
function aparitii(x,c:integer):integer;
var p:integer;
begin
p:=0;
while x<>0 do begin
              if x mod 10 =c then inc(p);
              x:=x div 10;
              end;
aparitii:= p;
end;
begin
write('s=');readln(s);
write('n=');readln(n);
repeat
if n<>0 then writeln(aparitii(n,s));
write('n=');readln(n);
until n=0;
readln;
end.