Lập trình đơn giản

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Nguyễn Tấn Tài

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.

Nguyễn Nhật Nam
16 tháng 8 2017 lúc 14:23

const
fi='lhcs.inp';
fo='lhcs.out';
a:array[0..9] of byte=(1,0,0,0,1,0,1,0,2,1);
var
f:text;
t,n:integer;
procedure inp;
begin
assign(F,fi);
reset(F);
read(f,n);
close(F);
end;
procedure out;
begin
assign(f,fo);
rewrite(F);
t:=0;
while n<>0 do
begin
t:= t+a[n mod 10];
n:= n div 10
end;
write(f,t);
close(F);
end;
BEGIN
INP;
OUT;
END.

Nguyễn Nhật Nam
18 tháng 8 2017 lúc 8:52

const
fi='lohongcs.inp';
fo='lohongcs.out';
var
f:text;
i,s:integer;
n:longint;
a:array[0..9] of byte;
begin
assign(f,fi);
reset(f);
read(f,n);
for i:= 1 to n do
read(f,a[i]);
a[8]:=2;
a[0]:=1; a[4]:=1; a[6]:=1; a[9]:=1;
a[1]:=0; a[2]:=0; a[3]:=0; a[5]:=0; a[7]:=0;
close(F);
assign(f,fo);
rewrite(F);
s:=0;
repeat
i:=n mod 10;
s:=s+a[i];
n :=n div 10 ;
until n=0;
write(f,s);
close(F);
end.

Giao Huỳnh
20 tháng 8 2017 lúc 11:00

Lập trình đơn giảnLập trình đơn giản

chúc bạn học tốt!!!ok


Các câu hỏi tương tự
Đẹp Trai Không Bao Giờ S...
Xem chi tiết
Trần Ngọc Hảo
Xem chi tiết
Cao Phạm Hà Anh
Xem chi tiết
nguyen phuong chi
Xem chi tiết
dinhnguyentuhuy
Xem chi tiết
-X_minh hiếu-
Xem chi tiết
No_pvp
Xem chi tiết
Quỳnh Chi Nguyễn
Xem chi tiết
Phan Đức Duy
Xem chi tiết