divtim2.pas

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

program dt2;
var v:array[1..100] of integer;
    n,i:integer;
function prima(x:integer):integer;
begin
if x<10 then prima:=x
        else
        begin
        repeat
        x:=x div 10;
        until x<10 ;
        prima:=x;
        end;
end;
function nr(p,q:integer):integer;
var m:integer;
begin
if p=q then if prima(v[p])=3 then nr:=nr(p,q)+1
                             else nr:=0
       else
       begin
       m:=(p+q) div 2;
       nr:=nr(p,m)+nr(m+1,q);
       end;
end;
begin
write('n=');readln(n);
for i:=1 to n do
              begin
              write('v[',i,']=');
              readln(v[i]);
              end;
write(nr(1,n));
readln;
end.