Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- var x,bienkiemtra:longint;
- function kt(x:longint):boolean;
- var r:longint;
- begin
- while (x<>0) do
- begin
- r:=x mod 10;
- if (r<>6) and (r<>8) then exit(false);
- x:=x div 10; end;
- exit(true);
- end;
- begin
- readln(x);
- if kt(x)=true then writeln('so dep') else writeln('so xau');
- readln
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement