-Cho số n ở hệ cơ số 10, có không quá 20 chữ số và không chứa các số 0 không có nghĩa ở đầu. Bằng cách xóa một hoặc một vài chữ số liên tiếp của n (nhưng không xóa hết tất cả các chữ số của n) ta nhận được những số mới. Số mới được chuẩn hóa bằng cách xóa các chữ số 0 vô nghĩa nếu có. Tập số nguyên D được xây dựng bằng...
Đọc tiếp
-Cho số n ở hệ cơ số 10, có không quá 20 chữ số và không chứa các số 0 không có nghĩa ở đầu. Bằng cách xóa một hoặc một vài chữ số liên tiếp của n (nhưng không xóa hết tất cả các chữ số của n) ta nhận được những số mới. Số mới được chuẩn hóa bằng cách xóa các chữ số 0 vô nghĩa nếu có. Tập số nguyên D được xây dựng bằng cách đưa vào nó số n, các số mới khác nhau đã chuẩn hóa và khác n. Ví dụ, với n = 1005 ta có thể nhận được các số mới như sau:
♦ Bằng cách xóa một chữ số ta có các số: 5 (từ 005), 105, 105, 100;
♦ Bằng cách xóa hai chữ số ta có các số: 5 (từ 05), 15, 10;
♦ Bằng cách xóa 3 chữ số ta có các số: 5 và 1.
-Tập D nhận được từ n chứa các số {1005, 105, 100, 15, 10, 5, 1}. Trong tập D này có 3 số chia hết cho 3, đó là các số 1005, 105 và 15.
-Yêu cầu: Cho số nguyên n. Hãy xác định số lượng số chia hết cho 3 có mặt trong tập D được tạo thành từ n.
-Dữ liệu: Vào từ file văn bản NUMSET.INP gồm một dòng chứa số nguyên n.
- Kết quả: Đưa ra file văn bản NUMSET.OUT một số nguyên – số lượng số chia hết cho 3 tìm được.
VD: dayso.inp:5
dayso.out:9
Bạn thử xem đúng không nha!!!
var n,i,k:longint;
f:text;
A:array[1..100000] of longint; {Bạn thay longint bằng những kiểu số nguyên khắc cũng được nhé}
begin
assign(f, 'Vd1.INP');
reset(f);
readln(f,n);
for i:=1 to n do readln(f, A[i]);
close(f);
assign(f, 'Vd2.OUT');
rewrite(f);
for k:=1 to n do if (k mod 2= 0) then
begin write(f, k); write(f, ' '); end;
close(f);
end.