Nhập vào 1 số. Xác định xem số đó có phải số nguyên tố hay không.

Code:: program kiem_tra_nguyen_to;
uses crt;
var n,i:integer; bl:boolean;
begin
clrscr;
bl:=true;
write('nhap vao so can kiem tra tinh nguyen to: '); readln(n);
if n<=1 then bl:=false;
for i:=2 to trunc(sqrt(n)) then
if n mod i=0 then bl:=false;
if bl=true then write('so vua nhap nguyen to.')
else write('so vua nhap khong nguyen to.');
readln;
end.

Viết chương trình nhập từ bàn phím hai số nguyên dương x, y từ bàn phím, in ra màn hình.
a) Tìm các ước chung của x, y và đếm số các ước chung đó.
b) Rút gọn đến tối giản cho phân số x / y.
c) Nhập thêm số nguyên z. Rồi viết chương trình tìm BCNN(x,y,z).
{ Voi x, y nhan gia tri ban đầu ở câu a }

admin giai ho minh voi.

» iết chương trình nhập vào một mảng A gồm N số nguyên và nhập thêm vào một số nguyên X.
» Viết chương trình nhập vào một mảng gồm N số nguyên. Sắp xếp lại mảng theo thứ tự tăng dần và in kết quả ra màn hình.
» Có ai chơi vlcm không
» Đếm số nguyên tổ trong mảng 1 chiều
» iết CT nhập từ bàn phím mảng 1 chiều và xóa 1 phần tử của mảng có n phần tử.