Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program del_na_seba;
- {$APPTYPE CONSOLE}
- uses
- SysUtils;
- var
- n,m,i,j,p:integer;
- procedure del(n:integer; var p:integer);
- begin
- p:=1;
- while(n<>0)do begin
- p:=p*(n mod 10);
- n:=n div 10;
- end;
- end;
- begin
- readln(n,m);
- j:=0;
- i:=n;
- while(i<=m) do begin
- if(i>99)then break;
- if(i mod 10=0)then inc(i);
- if(i>m)then break;
- del(i,p);
- if(i mod p=0)then inc(j);
- inc(i);
- end;
- writeln(j);
- readln;
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement