Bài tập  /  Bài đang cần trả lờ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.

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.
1 Xem trả lời
Hỏi chi tiết
24
0
0
Nguyễn Thu Hiền
13/09 22:41:59

Lời giải:

constfi='lohongcs.inp';fo='lohongcs.out';varf:text;i,s:integer;n:longint;a:array[0..9] of byte;beginassign(f,fi);reset(f);read(f,n);for i:= 1 to n doread(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;repeati:=n mod 10;s:=s+a[i];n :=n div 10 ;until n=0;write(f,s);close(F);end.

Mở khóa để xem toàn bộ nội dung trả lời

(?)
Bạn đã đạt đến giới hạn của mình. Bằng cách Đăng ký tài khoản, bạn có thể xem toàn bộ nội dung trả lời
Cải thiện điểm số của bạn bằng cách đăng ký tài khoản Lazi.
Xem toàn bộ các câu trả lời, chat trực tiếp 1:1 với đội ngũ Gia sư Lazi bằng cách Đăng nhập tài khoản ngay bây giờ
Tôi đã có tài khoản? Đăng nhập

Bạn hỏi - Lazi trả lời

Bạn muốn biết điều gì?

GỬI CÂU HỎI
Học tập không giới hạn cùng học sinh cả nước và AI, sôi động, tích cực, trải nghiệm
Câu hỏi mới nhất

Hôm nay bạn thế nào? Hãy nhấp vào một lựa chọn, nếu may mắn bạn sẽ được tặng 50.000 xu từ Lazi

Vui Buồn Bình thường
×
Trợ lý ảo Trợ lý ảo
×
Đấu trường tri thức | Lazi Quiz Challenge +500k
Gửi câu hỏi
×