uses crt;
var n,dem,i,t,j,kt:integer;
begin
clrscr;
readln(n);
dem:=0;
t:=0;
for i:=2 to n do
begin
kt:=0;
for j:=2 to trunc(sqrt(i)) do
if i mod j=0 then kt:=1;
if kt=0 then begin t:=t+i; dem:=dem+1; write(i:4); end;
end;
writeln;
writeln(dem);
writeln(t);
if (trunc(sqrt(t))=sqrt(t)) then writeln(t,' la so chinh phuong')
else writeln(t,' khong la so chinh phuong');
readln;
end.
Viết chương trình Pascal nhập số tự nhiên n từ bàn phím. Xuất ra màn hình:
Các số nguyên tố từ 2 đến n
pascal nha pls
Bài 1: Viết chương trình Pascal nhập n (n>0). Xuất ra màn hình:
các số nguyên tố từ 2 đến n và cho biết có bao nhiêu số nguyên tố từ 2 đến n
Lưu ý : Dùng lệnh While...do hoặc Repeat....until
Bài 1: Viết chương trình Pascal nhập số từ bàn phím. Xuất ra màn hình:
+ Tính n!
+ Nhập số x từ bàn phím.Tính nx
Bài 2: Viết chương trình Pascal nhập số n từ bàn phím. Xuất ra màn hình
+ Dòng 1: Các ước của n
+ Dòng 2: Nếu n là số lẻ thì xuất ra màn hình các số nguyên tố từ 2 đến n
+ Dòng 3: Nếu n là chẵn thì xuất ra màn hình các số hoàn hảo từ 1 đến n
+ Dòng 4: Tổng các ước của n
( 2 bài khác nhau mọi người làm riêng ra giúp mình ạaaaaaa)
1)viết chương trình xuất ra các bội số của B trong phạm vị từ 1 đến N, với giá trị B, N được nhập vào từ bàn phím
2) nhập số nguyên n, viết chương trình xem số n có phải là số nguyên tố không
3)viết chương trình kiểm tra C có phải số hoàn hảo hay không
viết chương trình pascal sử dụng biến mảng để nhập n số nguyên từ bàn phím in ra màn hình tổng các số đó ( N cũng được nhập từ bàn phím )
1. Thực hành
Bài 1: Viết chương trình nhập số nguyên n từ bàn phím. Kiểm tra và in ra màn hình số n có hợp lệ hay không với điều kiện n là số nguyên dương chẵn.
Bài 2: Viết chương trình Pascal nhập các số nguyên x và y từ bàn phím, in giá trị của x và y ra màn hình. Sau đó hoán đổi các giá trị của x và y rồi in lại ra màn hình giá trị của x và y.
• Ví dụ cho x:=5; y:=7.Hoán đổi để x:=7; y:=5.Cho 1 biến trung gian là z, ta hoán đổi x, y cho nhau bằng cách:
• z:=y { gán giá trị số 7 vào biến nhớ z }
• y:=x { gán giá trị số 5 vào biến nhớ y }
• x:=z { gán giá trị số 7 vào biến nhớ x }
Bài 3: Viết chương trình nhập vào ba số nguyên a, b và c từ bàn phím. Tính và in ra màn hình:
X= a + b + c
Y= (a + b)2 / c.
Chạy lại chương trình và nhập giá trị cho a là 10.5, quan sát kết quả và nêu nhận xét.
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
1. Hãy nhập từ bàn phím 1 dãy số nguyên không âm. Hãy viết chương trình in ra màn hình chỉ số i nhỏ nhất sao chi tổng các phần tư từ 1 đến i lớn hơn 100
2. Hãy viết chương trình pascal để thực hiện các nhiệm vụ sau đây:
- Nhập vào từ bàn phím 1 dãy số không quá 30 số nguyên
- Kiểm tra rồi cho biết dãy số vừa nhập có phải là dãy số không giảm hay không
viết chương trình nhập số tự nhiên N từ bàn phím , kiểm tra số N đó có phải là số nguyên tố không ?
2: Viết chương trình sử dụng lệnh lặp để tính trung bình cộng của N số thực. Với số N và các số tính trung bình cộng được nhập vào từ bàn phím. Câu 3: Viết chương trình nhận biết một số tự nhiên N được nhập từ bàn phím có phải là số nguyên tố hay không.
