Advertisement
AnnVux

kt so dep 68

Dec 14th, 2019
50
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.29 KB | None | 0 0
  1. var x,bienkiemtra:longint;
  2. function kt(x:longint):boolean;
  3. var r:longint;
  4. begin
  5. while (x<>0) do
  6. begin
  7. r:=x mod 10;
  8. if (r<>6) and (r<>8) then exit(false);
  9. x:=x div 10; end;
  10. exit(true);
  11. end;
  12. begin
  13. readln(x);
  14. if kt(x)=true then writeln('so dep') else writeln('so xau');
  15. readln
  16. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement