BÀI TẬP 21: LỖ HỔNG

Các chữ số: 0; 4; 6; 9 có 1 lỗ hổng            (có 1 đường khép kín)

                    8 có 2 lỗ hổng                        (có 2 đường khép kín)

                    1; 2; 3; 5; 7 có 0 lỗ hổng        (không có đường khép kín)

Yêu cầu: Viết chương trình nhập vào một số tự nhiên N có không quá 10 chữ số, in ra màn hình tổng số lỗ hổng của các chữ số trong N.

Ví dụ: Với N = 34882997 thì in ra kết quả: “Co 7 lo hong” (Giải thích: có 7 lỗ hổng)

CODE THAM KHẢO:

program Lo_hong;

uses crt;

var st: string[10];

    i,lo:integer;

begin

clrscr;

write('Nhap vao mot so nguyen: '); readln(st);

for i:=1 to length(st) do

begin

if st[i] in ['0','4','6','9'] then lo:=lo+1

else if st[i] in ['8'] then lo:=lo+2;

end;

writeln('Co ',lo, ' lo hong');

readln;

end.