Bài 1
Var a,b,sa,sb,s:longint;
Begin
Write('Nhap canh hinh vuong thu nhat a = ');readln(a);
Write('Nhap canh hinh vuong thu hai b = ');readln(b);
sa:=a*a;
sb:=b*b;
s:=sa+sb;
Write('Tong dien tich hai hinh vuong la ',s);
Readln
End.
Bài 2
Var a:array[1..1000] of integer;
i,n,t:integer;
Begin
Write('Nhap so luong so nguyen n = ');readln(n);
For i:=1 to n do
Begin
Write('Nhap so thu ',i,' = ');readln(a[i]);
End;
For i:=1 to n do
If a[i] <a[i+1] then
Begin
t:=a[i];
a[i]:=a[i+1];
a[i+1]:=t;
End;
Write('Day giam dan la ');
For i:=1 to n do write(a[i]:8);
Readln
End.
Bài 4
Var a:array[1..1000] of integer;
i,n,max:integer;
Begin
Write('Nhap so luong so nguyen n = ');readln(n);
For i:=1 to n do
Begin
Write('Nhap so thu ',i,' = ');readln(a[i]);
End;
max:=a[1];
For i:=2 to n do
If a[i] > max then max:=a[i];
Write('So lon nhat la ',max);
Readln
End.
Bài 3
Var n,s,i:integer;
Begin
Write('Nhap so luong hoc sinh n = ');readln(n);
s:=1;
For i:=2 to n do
s:=s+3;
Write('So goi qua can chuan bi la ',s);
Readln
End.
