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

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.

Trả lời