[tin lớp 8] lập trình pascal

[mai_anh_17_2]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Ai rành pascal thì giúp em bài này với!
Viết chương trình nhập số tự nhiên N#0 từ bàn phím rồi in ra màn hình
a, số các ước của N
b, kiểm tra xem N có là số nguyên tố hay không?

 

[c2nghiahoalgbg]

a)
uses crt;
var i,dem,n:integer;
begin
clrscr;
write('Nhap 1 so nguyen bat ki');
readln(n);
dem:=0;
for i:=1 to n do
if n mod i=0 then dem:=dem+1;
write('so cac uoc cua ',n,' la: ',dem);
readln;
end.
b) dùng vòng lặp for dễ hơn nhưng tốc độ lâu hơn, dùng while nhanh nhưng thuật toán khó hiểu hơn

 

[hai6f2009]

về: Lập trình pascal

a) em dùng 1 vòng for và kết hợp đếm là ra kq thôi.
b) em for từ 2 tới trunc(sqrt(n)) thì dừng nếu có 1 số mod n =0 thì n không phải số nguyên tố. vậy thôi

 

[satthuca]

pascal lop 8,ai giup minh vs.Chieu nay kt roi.Thks truoc

1)viết chương trình đọc từ bàn phím dãy n số thực(1<n<50)rồi đếm xem có bao nhiu số dương?

,tính tổng của chúng.Đưa kết quả ra màn hình
2)Lập chương trình nhập từ bàn phím dãy n số(1<n<=50)rồi sắp xếp các dãy số đó theo nguyên tắc A1 đổi chỗ với An;A2 đổi với An-1;A3 đổi chỗ An-2.Đưa kết quả ra màn hình
Minh can gap.Thks