xau = input('Nhập vào một xâu kí tự có độ dài n: ')

n=len(xau)

dem=0

for i in range(n):

     if xau[i].isdigit():

          dem+=1

print(' Số kí tự chữ số trong xâu: ', dem)

Câu 1:

uses crt;

var n,i,kt:integer;

begin

clrscr;

write('Nhap n='); readln(n);

if n<2 then writeln(n,' khong la so nguyen to')

else begin

kt:=0;

for i:=2 to n-1 do 

  if n mod i=0 then kt:=1;

if kt=0 then writeln(n,' la so nguyen to')

else writeln(n,' khong la so nguyen to');

end;

readln;

end.

Câu 2: 

uses crt;

var a:array[1..100]of integer;

i,n,max,min:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

  begin

write('A[',i,']='); readln(a[i]);

end;

max:=a[1];

min:=a[1];

for i:=1 to n do 

  begin

if max<a[i] then max:=a[i];

if min>a[i] then min:=a[i];

end;

writeln('So lon nhat la: ',max);

writeln('So nho nhat la: ',min);

readln;

end.

#include <bits/stdc++.h>

using namespace std;

long long a,b;

int main()

{

cin>>a>>b;

cout<<a-b;

return 0;

}

#include <bits/stdc++.h>

using namespace std;

long long n,x,t;

int main()

{

cin>>n;

t=0;

while (n>0)

{

x=n%10;

t=t+x;

n/=10;

}

cout<<t;

return 0;

}

Var t,n:integer;

begin

write('nhap n = ');readln(n);

while n div 10 <> 0 do

begin

t:=t+(n mod 10);

n:=n div 10;

end;

write('Tong cac chu so cua ',n,' la ',t);

readln;

end.

program boi_cua_3;

uses crt;

var a:array[1..100] of integer;

n,i:byte;

s:integer;

begin

clrscr;

write('nhap so luong phan tu cua mang: ');

readln(n);

for i:= 1 to n do

begin

write('nhap phan tu thu [',i,']= ');

readln(a[i]);

end;

s:=0;

for i:= 1 to n do

if a[i] mod 3 = 0 then s:=s+a[i];

writeln('vay tong cac so la boi cua 3 la: ',s);

readln;

end.

Số có bốn chữ số tổng quát là  1000.a+b.100+c.10+d . Theo bài a+b+c+d=11 (1)
Cho a+c−b−d: 11=k (k  E Z) (2)
a;b;c;d ≤ 9 => k E {0;1;-1}. Sở dĩ như vậy vì nếu k=2 => (a+c)-(b+d)=22 vô lí ! 
TH1: k=0 => a+c-(b+d)=11.k. (3) 
​Công (1);(3) ta được 2.(a+c)=11.(1+k) => 2.(a+c)=11 => a+c=5,5 vô lí nên loại. 
TH2: k=-1 => 2.(a+c)=11.(1+k)=0 => a=c=0 vô lí nên loại. 
TH3: k=1 . Lấy (1) trừ đi (3) 
​2.(b+d)=11.(1-k) => b=d=0 => nếu a=2 thi c=9 
a=3 => c=8 
a=4 => c=7 
a=5 => c=6 
a=6 => c=5 
a=7 => c=4 
a=8 => c=3 
a=9 => c=2 
Vậy các số cần tìm là: 2090;3080;4070;5060;6050;7040;8030;9020

=> có 8 số có 4 chữ số chia hết cho 11 và tổng các chữ số của nó cũng chia hết cho 11.