uses crt;

var x,y:integer;

begin

clrscr;

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

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

writeln(x+y);

readln;

end.

uses crt;

var a,b:integer;

begin

clrscr;

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

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

if a>b then writeln(a)

else writeln(b);

readln;

end.

Bài 1:

program in_phan_tu;

uses crt;

var n,i:longint;

a:array[1..100] of longint;

begin

clrscr;

write('nhap so n:');readln(n);

for i:=1 to n do

begin

write('nhap phan tu a[',i,']:');readln(a[i]);

end;

for i:=1 to n do

write(a[i]:3);

readln;

end.

Bài 2:

program tong_phan_tu;

uses crt;

var n,i,tong:longint;

a:array[1..100] of longint;

begin

clrscr;

write('nhap so n:');readln(n);

for i:=1 to n do

begin

write('nhap phan tu a[',i,']:');readln(a[i]);

end;

tong:=0;

for i:=1 to n do

tong:=tong+a[i];

writeln('tong cua day la:');

readln;

end.

Bài 3:

program tong_phan_tu_chan;

uses crt;

var n,i,tong:longint;

a:array[1..100] of longint;

begin

clrscr;

write('nhap so n:');readln(n);

for i:=1 to n do

begin

write('nhap phan tu a[',i,']:');readln(a[i]);

end;

tong:=0;

for i:=1 to n do

if a[i] mod 2=0 then tong:=tong+a[i];

writeln('tong cua day la:');

readln;

end.

Câu 1: 

uses crt;

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

i,n:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

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

end;

for i:=1 to n do 

  write(a[i]:4);

readln;

end.

Câu 2: 

uses crt;

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

i,n,t:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

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

end;

t:=0;

for i:=1 to n do 

 t:=t+a[i];

writeln(t);

readln;

end.

# 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)

2: 

#include <bits/stdc++.h>

using namespace std;

int main()

{

string st;

int a;

cin>>st;

cin>>a;

cout<<"Xin chao "<<st<<endl;

cout<<"Nam nay "<<st<<" "<<2021-a<<" tuoi";

return 0;

}

Bài 2: 

#include <bits/stdc++.h>;

using namespace std;

int main();

{

long m,n;

cout<<"Nhap m="; cin>>m;

cout<<"Nhap n="; cin>>n;

cout<<m*n-2;

return 0;

}

program trungbinh;

uses crt;

var n,i: integer;

      s:real;

      A: array[1..1000] of integer;

begin

clrscr;

write('Nhap do dai day: '); readln(n);

writeln('Nhap gia tri cua day: ');

S:=0;

for i:=1 to n do

begin

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

readln(A[i]);

S:=S+A[i];

end;

S:=S/n;

write('Trung binh cua cac so cua day do la: ',S);

readln;

end.

uses crt;

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

i,n,k:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

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

end;

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

for i:=1 to n do 

  if a[i] mod k=0 then write(a[i]:4);

readln;

end.

Program HOC24;

var m,i,d: integer;

a: array[1..32000] of integer;

begin

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

for i:=1 to m do

begin

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

end;

write('Nhap X = '); readln(x);

d:=0;

for i:=1 to n do if a[i]=x then d:=d+1;

write(X,' xuat hien ',d,' lan trong mang');

readln

end.