31/12/2023
Làm sao để có câu trả lời hay nhất?
31/12/2023
03/01/2024
```pascal
program TichChuSo;
var
N, unitDigit, tensDigit, product: integer;
begin
// Đọc dữ liệu từ tệp PN.INP
assign(input, 'PN.INP');
reset(input);
readln(N);
close(input);
// Tính tích của chữ số hàng đơn vị và hàng chục
unitDigit := N mod 10;
tensDigit := (N div 10) mod 10;
product := unitDigit * tensDigit;
// Ghi kết quả vào tệp PN.OUT
assign(output, 'PN.OUT');
rewrite(output);
writeln(product);
close(output);
end.
```
31/12/2023
Đây là đề thi Tin học lớp 8 năm học 2022-2023. Bài 1 yêu cầu tính tích của chữ số hàng đơn vị và hàng chục của một số nguyên dương N. Bạn cần viết chương trình Pascal để giải bài này.
Dưới đây là một ví dụ về chương trình Pascal để giải bài toán này:
```pascal
program TichChuSo;
var
N, unitDigit, tensDigit, product: integer;
begin
// Đọc dữ liệu từ tệp PN.INP
assign(input, 'PN.INP');
reset(input);
readln(N);
close(input);
// Tính tích của chữ số hàng đơn vị và hàng chục
unitDigit := N mod 10;
tensDigit := (N div 10) mod 10;
product := unitDigit * tensDigit;
// Ghi kết quả vào tệp PN.OUT
assign(output, 'PN.OUT');
rewrite(output);
writeln(product);
close(output);
end.
```
Bạn chỉ cần sao chép mã chương trình trên vào trình biên dịch Pascal và chạy để giải bài toán. Kết quả sẽ được ghi vào tệp PN.OUT.
Đối với bài 2, yêu cầu tính số tiền mà học sinh của trường THCS A&B được hỗ trợ dựa trên số chuột diệt được. Bạn có thể sử dụng công thức sau để tính số tiền:
```pascal
program SoTienHoTro;
var
n, tienHoTro: int64;
begin
// Đọc dữ liệu từ tệp DC.INP
assign(input, 'DC.INP');
reset(input);
readln(n);
close(input);
// Tính số tiền hỗ trợ dựa trên số chuột diệt được
if n < 3000 then
tienHoTro := n * 1000
else
tienHoTro := n * 2000;
// Ghi kết quả vào tệp DC.OUT
assign(output, 'DC.OUT');
rewrite(output);
writeln(tienHoTro);
close(output);
end.
```
Tương tự như bài 1, bạn chỉ cần sao chép mã chương trình trên vào trình biên dịch Pascal và chạy để giải bài toán. Kết quả sẽ được ghi vào tệp DC.OUT.
Nguyễn Văn Tiến Dũng
01/01/2024
hahieu bạn chép câu trả lười của Timi à
Nếu bạn muốn hỏi bài tập
Các câu hỏi của bạn luôn được giải đáp dưới 10 phút
CÂU HỎI LIÊN QUAN
03/09/2024
02/09/2024
01/09/2024
Top thành viên trả lời