Cấp trường 3

Bài 1 : Tìm giá trị lớn nhất trong 4 số a, b, c, d (a, b, c, được nhập từ bàn phím).
Bài 2 : Tìm tất cả các chữ số có ba chữ số abc sao cho tổng các lập phương của các chữ số thì bằng chính số đó ( abc = a3 + b3 + c3).
Bài 3 : Nhập vào một số nguyên không âm, kiểm tra xem nó có phải là số nguyên tố hay không?
Bài 4 : In ra các số nguyên tố nhỏ hơn hoặc bằng N (N là số nguyên không âm được nhập từ bàn phím).
Bài 5 : Viết chương trình tìm số đảo của một số nguyên dương . Ví dụ: - Số = 12345
- Số đảo = 54321
Bài 6 : Viết chương trình nhập vào một ma trân, tính tổng bình phương của các số âm trong ma trận trên.
Bài 7 : Viết chương trình nhập vào một chuỗi ký tự, Kiểm tra xem nó có đối xứng hay không (Ví dụ: Chuỗi đối xứng RADAR, MADAM).

B5:
Uses crt;
Var n,tong:longint;
begin
clrscr;
tong:=0;
Write('Nhap so n: ');readln(n);
Write('So dao cua ',n,' la: ');
While n<>0 do
begin
tong:=tong+(n mod 10);
Write(n mod 10);
n:=n div 10;
End;
Writeln;
Writeln('tong cac chu so la: ',tong);
Readln;
End.

B4:
Uses crt;
Var i,j,n:integer;
procedure snt(var n:integer);
Begin
j:=1;
If n>0 then
Repeat
j:=j+1;
Until n mod j =0;
If j=n then write(n:5);
End;
begin
clrscr;
Write('Nhap n: ');readln(n);
Writeln('Cac so nguyen to nho hon ',n,' la:');
For i:=1 to n -1 do
snt(i);
readln;
End.

B6:
Uses crt;
Type matran=array[1..100,1..100] of integer;
Var a:matran;
i,j,n,m,tong:integer;
{}
procedure Nhap(Var a:matran);
Begin
For i:=1 to m do
For j:=1 to n do
Begin
Write('a[',i,',',j,']:');
Readln(a[i,j]);
End;
End;
{}
procedure Xuat(Var a:matran);
Begin
For i:= 1 to m do
Begin
For j:=1 to n do
Write(a[i,j]:5);
Writeln;
End;
End;
{}
Begin
clrscr;
Write('Nhap so dong: ');readln(m);
Write('Nhap so cot: ');readln(n);
Nhap(a);
Writeln('Ma tran la: ');
Xuat(a);
tong:=0;
For i:=1 to m do
For j:=1 to n do
if a[i,j]<0 then
tong:=tong+a[i,j];
Writeln('Tong cac so am trong ma tran la: ',tong);
Readln;
End.

B7
Uses crt;
Var s,s1:string;
i:integer;
Begin
clrscr;
Writeln('Nhap vao xau S: ');readln(S);
For i:=length(s) downto 1 do
s1:=s1+s[i];
If (s1=s) then
Writeln('Xau doi xung')
else
Writeln('Xau khong doi xung');
readln;
End.

B1
Uses crt;
Var a,b,c,d,max:integer;
Begin
clrscr;
Writeln('Nhap lan luot cac so a,b,c,d:');readln(a,b,c,d);
max:=a;
If b>max then max:=b;
If c>max then max:=c;
If d>max then max:=d;
Writeln('So lon nhat la: ',max);
Readln;
End.

B2
Uses crt;
Var a,b,c:integer;
Begin
clrscr;
For a:=1 to 9 do
For b:=0 to 9 do
For c:=0 to 9 do
If (100*a+10*b+c)=(a*a*a+b*b*b+c*c*c) then
Writeln(a,b,c,' = ',a,'^3+',b,'^3+',c,'^3');
Readln;
End.

B3
Uses crt;
Var i,n:integer;
Begin
clrscr;
Write('Nhap n so nguyen khong am: ');readln(n);
i:=1;
If n>0 then
repeat
i:=i+1
until n mod i =0;
If i=n then writeln(n,' la so nguyen to.')
else writeln(n,' khong phai la so nguyen to');
Readln;
End.