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

Nhập vào số N. In ra chữ số lẻ của số N. Ví dụ N = 32594 . Kết quả: 3 5

Nhập vào số N. In ra chữ số lẻ của số N. Ví dụ N  = 32594 . Kết quả: 3 5 (ngôn ngữ pascal)
giúp dùm đi đang gấp
1 trả lời
Hỏi chi tiết
11
Tham khảo câu trả lời từ Trợ lý ảo Lazi
Để in ra các chữ số lẻ của một số nguyên N trong Pascal, bạn có thể sử dụng đoạn mã sau:

```pascal
program OddDigits;
var
N: Integer;
digit: Integer;
begin
Write('Nhập vào số N: ');
ReadLn(N);

Write('Các chữ số lẻ của số N là: ');

while N > 0 do
begin
digit := N mod 10; // Lấy chữ số cuối cùng
if digit mod 2 <> 0 then
Write(digit, ' '); // Nếu là chữ số lẻ, in ra
N := N div 10; // Xóa chữ số cuối cùng
end;

WriteLn; // Xuống dòng
end.
```

### Giải thích đoạn mã:

1. **Khai báo biến**: `N` để lưu số nguyên mà người dùng nhập vào, và `digit` để lưu từng chữ số của `N`.
2. **Nhập số**: Sử dụng `ReadLn` để lấy giá trị của `N` từ người dùng.
3. **Vòng lặp while**: Tiếp tục lặp cho tới khi `N` bằng 0.
- Sử dụng `mod` để lấy chữ số cuối cùng.
- Nếu chữ số đó là lẻ (`digit mod 2 <> 0`), in nó ra.
- Chia `N` cho 10 để loại bỏ chữ số cuối cùng đã kiểm tra.
4. **Xuống dòng**: Cuối cùng gọi `WriteLn` để xuống dòng.

Bạn có thể chạy đoạn mã này trong một trình biên dịch Pascal, và nó sẽ cho ra kết quả như mong muốn.
1
0
Hưngg
29/11 20:12:37
+5đ tặng
program InChuSoLe;

var
  N: LongInt;  // Biến để lưu số nguyên N
  digit: Integer;  // Biến lưu chữ số hiện tại của N

begin
  // Nhập vào số nguyên N
  Write('Nhap so nguyen N: ');
  ReadLn(N);

  Write('Cac chu so le cua N la: ');
  
  // Xử lý từng chữ số của N
  while N <> 0 do
  begin
    digit := N mod 10;  // Lấy chữ số cuối cùng của N
    if digit mod 2 = 1 then  // Nếu chữ số đó là số lẻ
      Write(digit, ' ');  // In ra chữ số lẻ

    N := N div 10;  // Bỏ chữ số cuối cùng đi
  end;

  WriteLn;  // Xuống dòng sau khi in xong
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
Bài tập liên quan
Bài tập Tin học Lớp 8 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
×
Đấu trường tri thức | Lazi Quiz Challenge +500k