function nt(x: integer): boolean;
var j: integer;
begin
nt:=true;
if (x=2) or (x=3) then exit;
nt:=false;
if (x=1) or (x mod 2=0) or (x mod 3=0) then exit;
j:=5;
while j<=trunc(sqrt(x)) do
begin
if (x mod j=0) or (x mod (j+2)=0) then exit;
j:=j+6;
end;
nt:=true;
end;
1Cho số nguyên dương N ,đếm số cách phân tích N thành tổng hai số nguyên tố .
2 Viết chương trình nhập vào số nguyên dương N.
a) Xuất ra màn hình N có phải là số nguyên tố đối xứng hay không.
b) Thông báo ra màn hình số nguyên tố đối xứng nhỏ nhất lớn hơn N.
mong các bạn giúp mình với ạ.
Câu1 viết chương trình nhập giá trị n từ ban phím in các số chẵn từ 1 đến n Câu2 viết chương trình in ra màn hình các số chẵn đầu tiên với chẵn nhỏ nhất >1000 Lm ơn tui sắp kiểm tra r
Viết chương trình nhập số nguyên A từ bàn phím,kiểm tra thông báo ra màn hình xem số đó là số âm hay dương
viết chương trình từ bàn phím hai số nguyên x,y (x>y), kiểm tra và thông báo ra màn hình x chia hết cho y hay không.
cần gấp!!
viết công thức pascal nhập số n từ bàn phím, thực hiện xuất ra màn hình: +các số nguyên tố từ 2 đến n
+các số chính phương từ 0 đến n
+các số hoàn hảo từ 1 đến n
Làm giúp mình với!!!
Cho 1 số nguyên x bất kì được nhập vào từ bàn phím hãy kiểm tra xem x có phải la số nguyên tố hay không? Mô tả thuật toán và viết chương trình
Viết chương trình trong Tubo Pascal của các thuật toán sau
- Đọc và số nguyên a, kiểm tra xem a là số chẵn hay số lẻ
- Giảm giá 30% cho khách hàng mua với số tiền T>=100000 và cách 10% cho khách hàng mua với số tiền t<100000
- nếu x>5 thì in giá trị của X ra ngoài màn hình
- Giảm giá 30% cho khách hàng mua với số tiền T>=100000
- Nếu Delta < 0 thì in ra màn hình phương trình vô nghiệm
Viết chương trình nhập vào từ bàn phím số nguyên a, sử dụng câu lệnh điều kiện để kiểm tra xem a có nằm trong khoảng từ 1 đến 100 hay ko , thông báo kết quả ra màn hình
viết chương trình nhập vào số nguyên dương N.Kiểm tra và in ra màn số N là số chẵn hay lẽ
