program tim_uoc;
uses crt;
var n,i,j:longint;
begin
clrscr;
write('nhap so n:');readln(n);
write('cac uoc cua n la:');
for i:=1 to n do
if n mod i=0 then write(i:3);
writeln;
j:=0;
for i:=1 to n do
if n mod i=0 then j:=j+1;
if j=2 then writeln(n,' la so nguyen to')
else writeln(n,' khong phai la so nguyen to');
readln;
end.
(Viết chương trình Pascal sử dụng câu lệnh while...do)
1. Viết chương trình nhập vào 1 dãy gồm n số nguyên và tính tổng, trung bình của dãy vừa nhập.
2. Viết chương trình nhập 1 số nguyên x, kiểm tra số vừa nhập có phải số nguyên tố hay không.
"Sử dụng câu lệnh While .. do viết chương trình: Nhập vào một số nguyên dương và kiểm tra xem số đó có phải là số nguyên tố không?" Giúp mình nhanh nhanh với ạ, tuần sau thi rồi:(
viết đoạn chương trình in các ước của số nguyên dương n ra màn hình với n được nhập từ bàn phím. (gợi ý: cho vòng lặp for có biến đếm i chạy từ 1-n, kiểm tra xem biến i có là ước ước số của n khi n chia hết cho i) *
viết chương trình nhập vào số tự nhiên n và kiểm tra n có phải là số hoàn chỉnh không
Bài 1: VCT kiểm tra 1 số nguyên nhập từ bàn phím có phải số nguyên tố không?
Bài 2: VCT tìm ước chung lớn nhất của 2 số nguyên a, b được nhập từ bàn phím?
Vct pascal nhập n ( n>0) kiểm tra n có phải là số nguyên tố không
Viết Chương Trình Pascal Cho Nhập N Nguyên , Dương Từ Bàn Phím . In ra màn hình : -Các Ước Của N Không Kể N -Xác Định N Có Phải Là Số Hoàn Hảo -Tất Cả Số Hoàn Hảo Trong Phạm Vi Từ 1-> N
Viết phương trình nhập số nguyên N từ bàn phím. Kiểm tra từ 1 đến N có bao nhiêu số nguyên chia hết cho 5.
