Câu 3: (3,5 điểm) Lỗ hổng chữ số
LHCS.PAS
Các chữ số từ 0 đến 9, nếu một chữ số bất kỳ có một đường khép kín thì ta gọi chữ số đó có 1 lỗ hổng, có hai đường khép kín thì ta gọi số đó có 2 lỗ hổng, và không có đường khép kín nào thì ta gọi chữ số đó có 0 lỗ hổng. Vậy các chữ số 0, 4, 6, 9 có 1 lỗ hổng, chữ số 8 có 2 lỗ hổng và các chữ số 1, 2, 3, 5, 7 có 0 lỗ hổng.
Cho một số nguyên dương N (1 ≤ N ≤ 2147483647), ta luôn đếm được số lỗ hổng của các chữ số xuất hiện trong nó.
Ví dụ: Với N = 388247 thì ta đếm được N có 5 lỗ hổng.
Yêu cầu: Đếm số lỗ hổng của số nguyên dương N.
Dữ liệu vào: Nhập số nguyên dương N từ bàn phím.
Dữ liệu ra: In số lỗ hổng của số nguyên dương N ra màn hình.
Ví dụ: Nhập vào từ bàn phím N = 388247
Kết quả in ra màn hình: 5
const
nhap='bai1.inp';
xuat='bai1.out';
var n,m,u,d:int64;
begin
assign(input,nhap);reset(input);
assign(output,xuat);rewrite(output);
read(n);
while n<>0 do
begin
m:=n mod 10;
n:=n div 10;
if (m=1) or (m=2) or (m=3) or (m=5) or
(m=7) then d:=0;
if (m=0) or (m=4) or (m=6) or (m=9)
then d:=1;
if m=8 then d:=2;
u:=u+d;
end;
writeln(u);
close(input);close(output);
end.
