giúp mình làm bài pascal này với (viết thân chương trình). mình cũng đang cần gấp

**vthao93hp** · 12-04-2011, 10:30 PM

1) tìm bội số chung lớn nhấ của m,n biết rằng bội số chung nhỏ nhất (m,n) = (m*n)/ ước chung lớn nhất (m,n)
2) nhập 2 số nguyên a,b cho đến khi thỏa a,b>0 và b-a>20. in ra màn hình các kí tự có mã ASCII từ a đến b.
3) cho nguyên dương n. kiểm tra tính chất nguyên tố của số n.

**Xitrum76** · 12-13-2011, 02:52 AM

Mã:

Var M,N,r,T,UCLN:integer;
{Tim boi chung nho nhat cua 2 so M,N}
Begin
write('Nhap vao 2 so M,N:'); Readln(M,N);
{Tim ucln cua 2 so M,N}
T:=M*N;
while N<>0 do
 Begin
  r:=M mod N;
  M:=N;
  N:=r;
 End;
 UCLN:=M
write('BCN cua M,N la:',T DIV UCLN);
Readln
End.
 
{Nhap vao 2 so nguyen a,b cho den khi a,b>0 va b-a>20,
dua ra man hinh cac ki tu co ma ASCII tu a den b}
Var a,b,i:integer;
Begin
 write('Nhap vao 2 so nguyen a,b:');
 Readln(a,b);
 While not((a>0) and (b>0) and (b-a>20)) do
  Begin
   write('Hay nhap lai a,b:');
   readln(a,b);
  End;
 For i:=a to b do write(chr(i):3);
 Readln
 End.


{Cho so nguyen duong N, kiem tra tinh nguyen to cua so N}
Var N,i:integer;
begin
 write('Nhap vao so nguyen duong N:');
 Readln(N);
 For i:=2 to trunc(sqrt(N)) do
  If N mod i=0 then
  Begin
   write('N khong la so nguyen to');
   Exit;{Thoat khoi chuong trinh}
  End;
 write('N la so nguyen to');
Readln
End.
{Co rat nhieu cach viet, ban co the viet cac cach khac:
dem so uoc cua N hay dung co thong bao True, False}