Bài tập pascal dùng cấu trúc lặp.

[test19]

[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.

Nhập 2 số nguyên dương m,n
a. Tính tổng các số chia hết cho 2 và 3
b. Tính bội chung nhỏ nhất của 2 số m n
c. Liệt kê các số nguyên tố trong khoảng m n
d. Liết kê các số chính phương trong đoạn m n

 

[p_trk]

câu a: nếu lặp thì không có điều kiện break ;
câu b:

function BCNN(m,n: word ): word;
 begin 
     a:=m; b:=n;
     while  m<>n do  
       if m>n then m:=m-n else n:=n-m;
     BCNN:=(a*b)/m;
end;

câu c: mình bận quá nên giúp bạn ý tưởng thôi nha.
bạn nên lập một hàm kiểm tra số nguyên tố
cách kiểm tra số nguyên tố k thì
k<2 then false;
k>2 kiểm tra bằng số ước ;
bước tiếp theo bạn cho kiểm tra
m>n hay ngược lại
giả sử m>n thì
for i:=n to m do
if {kiểm tra nguyên tố là đúng } then {thông báo };
cấu d: tương tự bạn dùng hàm kiểm tra số chính phương ;
về phần kiểm tra số chính phương của số n
bạn kiểm tra như sau
nếu sqrt(n)=trunc(sqrt(n)) thì true ; ngược lại false
sau đó cho chạy như câu c ;