giúp mk vs ạ sẽ vote 5 sao cho người đúng nhất và đầy đủ nhất
1, Viết chương trình tính giai thừa của số nguyên dương N được nhập vào từ bàn phím?
2, viết chương trình rút gọn phân số
3, viết chương trình đưa ra màn hình số nguyên tố nhỏ hơn n(với n là số nguyên được nhập vào từ phím)
Bài 1:
Program FNG;
Uses crt;
Var n,i: byte;
s: qword;
Begin
Clrscr;
Write(‘Nhap n: ‘); Readln(n);
s:=1;
For i:=1 to n do s:=s*i;
Write(‘S = ‘,s);
Readln
End.
Bài 2:
Program FNG;
Uses crt;
Var a,b,tg: qword;
Function UCLN(a,b: qword): qword;
Begin
While a<>b do
If a>b then a:=a-b
Else b:=b-a;
UCLN:=a;
End;
Begin
Clrscr;
Write(‘Nhap tu so: ‘); Readln(a);
Write(‘Nhap mau so: ‘); Readln(b);
Write(a,’/’,b,’ = ‘);
tg:=UCLN(a,b);
a:=a div tg;
b:=b div tg;
Write(a,’/’,b);
Readln
End.
Bài 3:
Program FNG;
Uses crt;
Var n,i: longint;
Function ngto(a: longint): boolean;
Var i: longint;
Begin
If a<2 then exit(false);
For i:=2 to a div 2 do
If a mod 2 = 0 then exit(false);
exit(true);
End;
Begin
Clrscr;
Write(‘Nhap n: ‘); Readln(n);
For i:=1 to n-1 do
If ngto(i) then Write(i,’ ‘);
Readln
End.