Bài 77:
program day_tang;
uses crt;
var n,i,a,b,d:integer;
begin
clrscr;
write('Nhap n: '); readln(n);
d:=0;
for i:=1 to n do
begin
write('Nhap so thu ',i,': '); readln(a);
if i=1 then b:=a
else
begin
if b>a then d:=1;
b:=a;
end;
end;
if d=1 then write('NO') else write('YES');
readln;
end.
Bài 78:
program chinh_phuong;
var n,i,a,d:integer;
begin
clrscr;
write('Nhap n: '); readln(n);
d:=0;
for i:=1 to n do
begin
write('Nhap so thu ',i,': '); readln(a);
if sqr(trunc(sqrt(a)))=a then d:=d+1;
end;
write('Co ',d,' so chinh phuong');
readln;
end.
Bài 79:
program tong_uoc_duong_max;
uses crt;
var n,i,a,j,t,max,ptu:integer;
begin
clrscr;
write('Nhap n: '); readln(n);
write('Nhap so thu 1: '); readln(a);
ptu:=a;
t:=0;
for j:=1 to a do
if a mod j=0 then t:=t+j;
max:=t;
for i:=2 to n do
begin
write('Nhap so thu ',i,': '); readln(a);
t:=0;
for j:=1 to a do
if a mod j=0 then t:=t+j;
if t>max then
begin
max:=t;
ptu:=a;
end;
end;
write('Phan tu co tong uoc duong lon nhat la: ',t);
readln;
end.
