program TimBoi4ChuSo;
var
n, i: integer;
begin
repeat
writeln('Nhap vao so nguyen n (2<n<100): ');
readln(n);
until (n > 2) and (n < 100);
writeln('Cac boi cua ', n, ' co 4 chu so la: ');
for i := 1000 to 9999 do
begin
if i mod n = 0 then
writeln(i);
end;
end.
Em hãy viết chương trình Pascal nhập vào một số tự nhiên n thoả mãn 0<n<100, nếu sai yêu cầu nhập lại, tính và in ra các bội có 4 chữ số của n.Giups vs ạ cần gấp
Em hãy viết chương trình Pascal nhập vào một số tự nhiên n thoả mãn 2<n<100, nếu sai yêu cầu nhập lại, tính và in ra các ước của n, nếu n chỉ có hai ước, hãy thông báo n là số nguyên tố.
viết chương trình nhập số tự nhiên n sao cho 5 < n ≤100, nếu nhập sai yêu cầu nhập lại khi nào nhập đúng thì tính tổng sn:
Câu 1 : Cho chiều cao hai bạn Nam và Linh . Em hãy viết chương trình in ra chiều cao của bạn có số đo cao hơn
Câu 2 : Nhập N . Viết chương trình tính tích các chữ số tự nhiên từ 1 đến N
Câu 3 : Nhập N . In ra bảng cửu chương N
Viết chương trình thoả mãn các yêu cầu sau: a.tính tích n số tự nhiên đầu tiên(n=1,2,3....) với n được nhập từ bàn phím b.in ra màn hình các số lẻ có trong dãy n c. Kiểm tra xem có bao nhiêu số nguyên tố trong dãy thì in ra Ví dụ: dữ liệu vào 7 Dữ liệu ra Tong la:21 So le trong day la: 1 3 5 7 So nguyen to la: 1 3 5 7
Câu 1: Viết chương trình nhập vào số nguyên n có 2 chữ số (Nếu nhập sai thì nhập lại).
a) In ra các số chẵn từ 0 đến n
b) In ra các số lẽ từ 1 đến n
c) Tính tổng các số chẵn từ 0 đến n
d) Tính tổng các số lẻ từ 1 đến n
Viết chương trình nhập vào máy tính số tự nhiên N in ra màn hình các ước của N và số lượng các ước bằng bao nhiêu?
Thược hiện bằng phần mềm free pascal
3. Nhập vào số nguyên n từ bàn phím. Viết chương trình tính tổng n giai
Với mỗi số tự nhiên N (1<=N<=1000) Tìm các số tự nhiên n thoả mãn:
+ N là số nguyên tố.
+ Tổng các chữ số của N cũng là số nguyên tố.
Dữ liệu vào: gồm 1 dòng chứa số n
Dữ liêu ra: gồm 2 dòng:
+ Dòng 1 ghi thông báo: ‘Các số nguyên tố nhỏ hơn bằng n thoả mãn yêu
cầu là:’
+ Dòng 2 hiển thị các só tìm được, mỗi số cách nhau 3 ký tự trắng.
Ví dụ:
DL vào DL ra
N=10 Các số nguyên tố nhỏ hơn bằng 10 thoả mãn yêu cầu là:
2 3 5 7
N=100 Các số nguyên tố nhỏ hơn bằng n thoả mãn yêu cầu là:
2 3 5 7 11 23 29 41 43 47 61 67 83 89
Em hãy viết chương trình thực hiện yêu cầu sau Nhập giá trị n từ bàn phím. Tính và in ra màn hình tổng các chữ số của n(biến T) VD: n có giá trị là 30546 --> T có giá trị là 18(3+0+5+4+6)
