Chọn B

Var i,n,s:integer;

Begin

While n<=0 do

Write('N = ');readln(n);

For i:=1 to n do

If n mod i = 0 then s:=s+i;

Write('Tong cac uoc cua ',n,' la ',s);

Readln;

End.

#include <bits/stdc++.h>

using namespace std;

int main()

{

int n,i,t=0;

cin>>n;

for (int i=1; i<=n; i++)

if (n%i==0) t+=i;

cout<<t;

return 0;

}

#include <bits/stdc++.h>

using namespace std;

int main()

{

int n,x,s=1,i;

cin>>n;

for (int i=1; i<=n; i++)

{

cin>>x;

if (x<0) s=s*x;

}

cout<<s;

return 0;

}

# Nhập chuỗi từ bàn phím

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

# Tính số chữ số xuất hiện trong chuỗi

count = 0

for char in s:

     if char.isdigit():

          count += 1

# In số chữ số xuất hiện trong chuỗi

print("Số chữ số xuất hiện trong chuỗi là:", count)

# Nhập chuỗi từ bàn phím

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

# Tính số chữ số xuất hiện trong chuỗi

count = 0

for char in s:

     if char.isdigit():

          count += 1

# In số chữ số xuất hiện trong chuỗi

print("Số chữ số xuất hiện trong chuỗi là:", count)

# Nhập chuỗi từ bàn phím

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

# Tính số chữ số xuất hiện trong chuỗi

count = 0

for char in s:

     if char.isdigit():

          count += 1

# In số chữ số xuất hiện trong chuỗi

print("Số chữ số xuất hiện trong chuỗi là:", count)

# Nhập chuỗi từ bàn phím

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

# Tính số chữ số xuất hiện trong chuỗi

count = 0

for char in s:

     if char.isdigit():

          count += 1

# In số chữ số xuất hiện trong chuỗi

print("Số chữ số xuất hiện trong chuỗi là:", count)

# Nhập chuỗi từ bàn phím

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

# Tính số chữ số xuất hiện trong chuỗi

count = 0

for char in s:

     if char.isdigit():

          count += 1

# In số chữ số xuất hiện trong chuỗi

print("Số chữ số xuất hiện trong chuỗi là:", count)

# Nhập chuỗi từ bàn phím

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

# Tính số chữ số xuất hiện trong chuỗi

count = 0

for char in s:

     if char.isdigit():

          count += 1

# In số chữ số xuất hiện trong chuỗi

print("Số chữ số xuất hiện trong chuỗi là:", count)

# Nhập chuỗi từ bàn phím

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

# Tính số chữ số xuất hiện trong chuỗi

count = 0

for char in s:

     if char.isdigit():

          count += 1

# In số chữ số xuất hiện trong chuỗi

print("Số chữ số xuất hiện trong chuỗi là:", count)

Uses crt;

var i,n: integer;

begin clrscr;

readln(n);

for i:=1 to n do if(i mod 2<>0) then writeln(i);

readln;

end.

số nguyên n nhập từ bàn phím anh ơi

Var m,n,i,s:integer;

Begin

Write('m = ');readln(m);

Write('n = ');readln(n);

For i:=m to n do s:=s+i;

Write('tong tu ',m,' den ',n,' la ',s);

Readln;

End.

s = 105

var i,n,s,du,dem:integer;

Begin

While n<=0 do

Begin

Write('N = ');readln(n);

End;

For i:=1 to n do

If n mod i = 0 then

Begin

Write(i:7);

du:=du+1;

s:=s+i;

End;

Writeln('So uoc cua ',n,' la ',du);

Writeln('Tong cac uoc cua ',n,' la ',s);

For i:=1 to s do

If s mod i = 0 then dem:=dem+1;

If dem=2 then write(s,' la so nguyen to')

Else write(s,' khong la so nguyen to');

Readln;

End.

Cám ơn nhiều

Số vòng lặp:8

s = 4

i = 10

bạn viết cách giải ra giúp mik vs thx bạn