Question

Nhập vào một chuỗi S bao gồm cả kí tự số và chữ. Đếm xem trong chuỗi S có bao nhiêu số chia hết cho 5 và in các số đó ra.VD: Nhập S= ‘asg35gds67gdgf345hh’

 

-       Có 2 số chia hết cho 5 là: 35, 345

làm bằng pascal nha mn giúp mình. Mình cảm ơn! 

Answer 1

program HOC24;
uses crt;
var s: string;
    i, n, count: integer;
begin
    clrscr;
    write('Nhap chuoi S: ');
    readln(s);
    n := length(s);
    count := 0;
    for i := 1 to n do
        if (s[i] in ['0'..'9']) then
            if (StrToInt(s[i]) mod 5 = 0) then
            begin
                writeln('So chia het cho 5 la: ', s[i]);
                inc(count);
            end;
    writeln('Tong so chia het cho 5 la: ', count);
end.

 

Answer 2

```python
def count_and_print_numbers_divisible_by_5(S):
numbers = []
count = 0
current_number = ""

for char in S: if char.isdigit(): current_number += char else: if current_number != "": number = int(current_number) if number % 5 == 0: count += 1 numbers.append(number) current_number = "" # Kiểm tra xem ký tự cuối cùng có phải là số chia hết cho 5 hay không if current_number != "": number = int(current_number) if number % 5 == 0: count += 1 numbers.append(number) print(f"Có {count} số chia hết cho 5 là: {', '.join(map(str, numbers))}")

Nhập chuỗi S từ người dùng

S = input("Nhập chuỗi S: ")

Gọi hàm để đếm và in số chia hết cho 5 trong chuỗi S

count_and_print_numbers_divisible_by_5(S)
```