Viết chương trình kiểm tra số siêu may mắn

0 bình luận về “Viết chương trình kiểm tra số siêu may mắn”

1. bài này có 2 cách:

   cách 1:

   uses crt;

   var n,m: integer;

        smm: boolean;

   begin

   clrscr;

   write (‘nhap so can kiem tra: ‘);  readln (n);

   smm:=true;

   while n<0 do

   begin

   m:=n mod 10;

   n:=n div 10;

   if (m<>4) and (m<>7) then smm:=false;

   end;

   if smm=true then writeln (‘n la so may man’)

   else writeln (‘n khong phai la so may man’);

   readln;

   end.

   cách 2: cách này kiểm tra cho số có 2 chữ số trở lên nếu là 1 số thì phải nhập thêm số 0 ở đầu vd: số 4 thì nhập: 04

   uses crt;

   var n: string;

         i: byte;

         smm: boolean;

   begin

   clrscr;

   write (‘nhap so can kiem tra: ‘);  readln (n);

   smm:=true;

   for i:=1 to length(n) do

   if (n[i]<>4) and (n[i]<>7) then smm:=false;

   if smm=true then writeln (n,’ la so may man’)

   else writeln (n,’ khong phai la so may man’);

   readln;

   end.

   Bình luận