LH Quảng cáo: lazijsc@gmail.com

Bài tập  /  Bài đang cần trả lời

Nhập vào một số tự nhiên. Lập trình trả lời các câu hỏi sau: n có bao nhiêu chữ số? Tổng các chữ số của n bằng bao nhiêu? Tìm chữ số đầu tiên của n

ĐỀ THI TIN HỌC KHỐI THCS
(Đề có 2 trang)
Phần 2 : Làm bài (10 điểm)
Yêu cầu trước khi làm bài :
• Em hãy tạo một thư mục gồm SBD_Trường (viết tắt) ví dụ như 02_NTT.
• Trong đó có 1 tệp thongtin.txt lưu lại thông tin về học sinh.
• Các bài làm được phải được lưu vào trong thư mục đó.
• Nếu học sinh nào không lưu bài đúng nơi qui định thì coi như không làm bài thi.
Đề bài :
Câu 1 : (4 điểm)
Nhập vào một số tự nhiên. Lập trình trả lời các câu hỏi sau:
- n có bao nhiêu chữ số?
- Tổng các chữ số của n bằng bao nhiêu?
- Tìm chữ số đầu tiên của n.
- Giả sử trong cách biểu hiện thập phân của n có dạng sau: akak-1 … a2a1a0.
Hãy tính tổng S = ak – ak-1 + ak-2 – … a0.
- Nhập vào số m(m ≤ số chữ số của n). Hãy tính tổng m chữ số cuối cùng của n.
Câu 2 :¬ (4 điểm)
¬ Cho một bàn cờ vuông 8 x 8 trên đó cho trước một số quân cờ. Ví dụ hình vẽ sau đây là một bàn cờ như vậy:
* * *
* * * *
* * * *
* *
*
* * *
* * *
* * *
Dữ liệu ghi trên tệp văn bản BANCO.TXT bao gồm 8 dòng, mỗi dòng là một sâu nhị phân độ dài 8. Vị trí các quân cờ ứng với số 1, các ô trống ứng với số 0. Ví dụ tệp BANCO.TXT ứng với bàn cờ trên:
01010100
10011001
10100011
00010100
00100000
01010001
10011000
01000110
Hãy viết chương trình PASCAL tính số quân cờ liên tục lớn nhất nằm trên một đườc thẳng trên bàn cờ. Đường thẳng ở đây có thể là đường thẳng đứng, đường nằm ngang hoặc đường chéo. Kết quả thể hiện trên màn hình.
Với ví dụ trên chương trình phải in trên màn hình kết quả là 4.

Câu 3 : (2 điểm)
Nhập vào 1 số tự nhiên N với (0 < N ≤ 65535), phân tích số vừa nhập thành các thừa số nguyên tố, nếu số vừa nhập là số nguyên tố thì chỉ thông báo ra màn hình đây là số nguyên tố.
Ví dụ:
- Nếu số vừa nhập là 300, thì in ra màn hình 300 = 2. 2. 3. 5. 5
- Nếu số vừa nhập là 307, thì in ra màn hình “307 là số nguyên tố”
1 trả lời
Hỏi chi tiết
2.365
2
1
NGUYỄN THỊ THU HẰNG
18/01/2018 18:37:41
3
Program bai2;
Var m, n: longint;dem,i:integer;
Begin
Write(`Nhap mot so tu nhien:`);Readln(n);
dem:=0;
m:=n;
Write(n,`=`);
While (m mod 2 = 0) do
Begin
dem:=dem+1;
m:=m div 2;
write(`2`);
if m>0 then write(`.`);
End;
i:=3;
While (m>0) do
Begin
While (m mod i = 0) do
Begin
dem:=dem+1;
m:=m div i;
write(i);
if m>0 then write(`.`);

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
Bài tập liên quan
Bài tập Tin học Lớp 9 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

Học ngoại ngữ với Flashcard

×
Trợ lý ảo Trợ lý ảo
×
Gia sư Lazi Gia sư