Câu 1:
uses crt;
var a,b:longint;
begin
clrscr;
write('Nhap a,b: ');readln(a,b);
if a>b then writeln(b,' ',a) else writeln(a,' ',b);
readln
end.
Câu 2: Đề không rõ lắm.
Câu 3:
uses crt;
var i,n:longint; x:array[1..10000000]of longint; s:real;
begin
clrscr;
write('Nhap n: ');readln(n);
for i:=1 to n do
begin
write('x[',i,']= ');readln(x[i]);
s:=s+x[i];
end;
writeln('Trung binh cong: ',s/n:0:2);
readln
end.
Câu 4:
uses crt;
var n,i:longint;
begin
clrscr;
write('Nhap n: ');readln(n);
i:=2;
while(n>1)and(n mod i<>0)do inc(i);
if i=n then writeln('N la so nguyen to') else
writeln('N khong la so nguyen to');
readln
end.
Câu 5:
uses crt;
var n,i:longint;
begin
clrscr;
write('Nhap n: ');readln(n);
i:=2;
while(n>1)and(n mod i<>0)do inc(i);
if i=n then writeln('N la so nguyen to') else
writeln('N khong la so nguyen to');
readln
end.