uses crt;
var i,j,kt:integer;
begin
clrscr;
for i:=10 to 99 do
begin
kt:=0;
for j:=2 to trunc(sqrt(i)) do
if i mod j=0 then kt:=1;
if kt=0 then write(i:4);
end;
readln;
end.
đưa ra tất cả các số nguyên tố có 4 chữ số, trong đó 2 số đầu cộng 2 số cuối bằng nhau
viết chương trình pascal nhập n thực hiện
dòng 1 xuất ra màn hình các chữ số của n
dòng 2 tổng các chữ số của n và xét xem tổng đó có phải là số nguyên tố không
dòng 3 các chữ số ở vị trí lẻ của n và tổng của chúng. Xét tổng đó có phải là số chính phương không
dòng 4 các chữ số ở vị trí chẵn của n và tổng của chúng. Xét tổng đó có phải là số hoàn hảo không
dòng 5 số lớn nhất và số nhỏ nhất của n và tổng của hai số đó
Giúp với !!
Viết chương trình pascal nhập n số nguyên từ bàn phím. Thực hiện
+ Xuất ra màn hình các số vừa nhập
+Tính tổng các số vừa nhập và xét xem tổng đó có phải là số nguyên tố không ?
Làm giúp với !
Viết chương trình pascal nhập n số nguyên từ bàn phím. Thực hiện
+ Xuất ra màn hình các số vừa nhập
+Tính tổng các số vừa nhập và xét xem tổng đó có phải là số nguyên tố không ?
Làm giúp với !
Viết chương trình pascal nhập dãy số n (n nhập từ bàn phím) thực hiện
+ dòng 1 xuất ra màn hình dãy số vừa nhập
+ dòng 2 tổng của dãy số vừa nhập và xét tổng đó có phải là số nguyên tố không ?
+ dòng 3 các số ở vị trí lẻ của dãy số và tổng của nó. Xét tổng đó có phải là số chính phương không?
+ dòng 4 các số ở vị trí chẵn của dãy số và tổng của chúng. Xét tổng đó có phải là số hoàn hảo không ?
+ dòng 5 số lớn nhất và số nhỏ nhất của dãy số và tổng của hai số đó Giúp với !!
1. Cho một dãy số gồm N phân tử, in ra màn hình các số nguyên tố có trong dãy
Số siêu nguyên tố là số nguyên tố mà khi bỏ một số tùy ý các chữ số bên phải của nó thì phần còn lại vẫn tạo thành một số nguyên tố.
Ví dụ 7331 là một số siêu nguyên tố có 4 chữ số vì 733, 73,7 cũng là các số nguyên tố
Viết chương trình nhập dữ liệu vào là một số nguyên N (10<N<=10^5) và đưa ra kết quả các số siêu nguyên tố nhỏ hơn N 
1.Viết ra màn hình dòng chữ : ‘Turbo Pascal’
2.Viết ra màn hình 20 dòng chữ : ‘Turbo Pascal’
3.Viết ra màn hình dòng chữ : ‘Đây là dòng thứ : ‘, 1, ‘Turbo Pascal’ ( 20 dòng);
4.Viết ra màn hình n dòng chữ : ‘Turbo Pascal’, n nhập từ bàn phím
4.1 Nhập vào số nguyên dương n, in ra các số tự nhiên từ 1 đến n.
5.Viết ra màn hình các số từ 1-100
6.Viết ra màn hình các số từ 1-100 các số cách nhau để dẽ đọc.
7.Viết ra màn hình các số từ 1-100 theo 10 hàng mỗi hàng 10 số ( các số cách nhau để dẽ đọc).
8. Viết ra các số lẻ từ 1-100
9.Viết ra các số chẵn từ 1 đến 10000. + theo từng hàng mỗi hàng 10 số.
10.Viết ra các số lẻ từ 1 đến 10000. + theo từng hàng mỗi hàng 10 số.
11. In ra tất các số tự nhiên nằm trong khoảng từ m đến n, với m, n được nhập từ bàn phím
12*Viết ra các số lẻ từ 1 đến 10000. + theo từng hàng mỗi hàng 20 số. Dừng xem theo từng trang
màn hình.
13. Viết ra các số chia hết cho 7 nhỏ hơn 1 triệu ( For, div)
14. Viết ra các số không chia hết cho 18 và nhỏ hơn 1 tỉ.{For, mod}
15. Viết ra các số chia 13 dư 2 và trong khoảng từ 456 đến 456789.{For, Mod}
16. Viết ra tất cả các số nhỏ hơn 1 triệu thỏa mãn : chia hết cho 24 và chia 17 dư 5
17. Tìm tất cả các số nhỏ hơn 1000 thỏa mãn : Chia 5 dư 4, chia 4 dư 3, chia 3 dư 2 và chia hết
cho 17.
18. In ra tất cả các số tự nhiên từ 0 đến 1000 theo chiều giảm dần, mỗi hàng 15 số. { For…
downto…}
* In ra bảng nhân 8
* In ra bảng cửu chương từ 1 đến 10.
Các bạn giúp mình với mình còn phải nộp cho Thầy
Help!!!
