Advertisement
Guest User

Untitled

a guest
May 26th, 2018
73
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.49 KB | None | 0 0
  1. program del_na_seba;
  2.  
  3. {$APPTYPE CONSOLE}
  4.  
  5. uses
  6. SysUtils;
  7.  
  8. var
  9. n,m,i,j,p:integer;
  10. procedure del(n:integer; var p:integer);
  11. begin
  12. p:=1;
  13. while(n<>0)do begin
  14. p:=p*(n mod 10);
  15. n:=n div 10;
  16. end;
  17. end;
  18. begin
  19. readln(n,m);
  20. j:=0;
  21. i:=n;
  22. while(i<=m) do begin
  23. if(i>99)then break;
  24. if(i mod 10=0)then inc(i);
  25. if(i>m)then break;
  26. del(i,p);
  27. if(i mod p=0)then inc(j);
  28. inc(i);
  29. end;
  30. writeln(j);
  31. readln;
  32. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement