var st:string;

dem,i:integer;

begin

write('Nhap xau S = ');readln(st);

dem:=0;

for i:=1 to length(st) do

if st[i] = ' ' then dem:=dem+1;

dem:=dem+1;

write('So tu cua xau S la ',dem);

readln;

end.

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 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.

s = input("Nhập một xâu bất kỳ: ")

print("Các ký tự và chữ số trong xâu là:")

for char in s:

       if char.isdigit() or char.isalpha():

              print(char)

Cho mình hỏi isalpha là gì vậy ạ ?

Để giải quyết bài toán này, chúng ta cần nhập vào một dãy số và in ra dãy số đó theo nguyên tắc 1 dòng gồm 10 phần tử, dòng cuối có thể có ít hơn 10 phần tử. Sau đây là mã nguồn Python để thực hiện việc này:

```python
n = int(input("Nhập số phần tử của dãy: "))
a = []

for i in range(n):
a.append(int(input("Nhập phần tử thứ {}: ".format(i+1))))

count = 0

for i in range(n):
print(a[i], end=" ")
count += 1
if count == 10:
print()
count = 0

if count != 0:
print()
```

Giải thích:

Ví dụ:

```
Nhập số phần tử của dãy: 15
Nhập phần tử thứ 1: 1
Nhập phần tử thứ 2: 2
Nhập phần tử thứ 3: 3
Nhập phần tử thứ 4: 4
Nhập phần tử thứ 5: 5
Nhập phần tử thứ 6: 6
Nhập phần tử thứ 7: 7
Nhập phần tử thứ 8: 8
Nhập phần tử thứ 9: 9
Nhập phần tử thứ 10: 10
Nhập phần tử thứ 11: 11
Nhập phần tử thứ 12: 12
```

Câu 1:
Var a:Integer;
Begin
Writeln('Nhap a: '); Readln(a);
If (a mod 2)=0 then writeln(a,'chia het cho 2') else (a,' khong chia het cho 2');
Readln;
End.

Câu 2:
Var S,a,b,c:Integer;
Begin
Writeln('Nhap a: '); readln(a);
Writeln('Nhap b: '); readln(b);
Writeln('Nhap c: '); readln(c);
S:=a+b+c;
Writeln('Tong cua ba so la: ',S);
Readln;
End.

Câu 3:
Var a,b,c:Integer;
Begin
Writeln('Nhap a: '); Readln(a);
Writeln('Nhap b: '); readln(b);
Writeln('Nhap c: '); readln(c);
If (a mod 2)=0 then writeln(a,' la so chan') else (a,' la so le');
If (b mod 2)=0 then writeln(b,' la so chan') else (b,' la so le');
If (c mod 2)=0 then writeln(c,' la so chan') else (c,' la so le');
Readln;
End.

what dờ phắc

#include <bits/stdc++.h>

using namespace std;

long long a,b;

int main()

{

cin>>a>>b;

cout<<a-b;

return 0;

}