Bai` tập pascal mới

Bài tập 1: Tính a mũ n với a, n nguyên dương nhập từ bàn phím
bài tập 2:Viết phương trình bậc 3 của n số tự nhiên đầu tiên
Bài tập 3: Viế chương trình nhập vào 1 số nguyên rồi m ra tất cả các ước số của số đó
bài tập 4: Tính S= 1+1/2 +1/3 +......+1/n
Bài tập 5: Tìm ước chung lớn nhất của a,b nguyên dương nhậptừ bàn phím


Bài 1:
program bt1;
uses crt;
var a,n,i:integer
s:longint
Begin
Clrscr;
write('nhap gia tri cua a ');
readln(a);
Write('nhap gia tri cua n ');
Readln(n);
S:= 1; i:=1;
While(i<=n_ do
begin
S:=s*a; i:=i+1;
end;
Write('a mu n la, S );
Readln;
End.



Bài 2
Program bt2;
ues crt;
var S:logint;
n:integer;
Begin
Clrscr;
Write('nhap gia tri cua n= ');
Readln(n);
i:= 1 ; s:=0;
While(i<=n) do
begin
s:=s+i*i*i;
i:= i+1;
end;
Write('tong bac 3 cua n so tu nhien dau tien la', s);
Readln;
End.

B4

program bt4;
uses crt;
var i,n :integer;
s : real;
Begin
clrscr;
write('nhap gia tri n:=');
readln(n);
s:=0;
i:=1
white i<=n do
begin
S:=S+1/I;
I:=I+1;
end;
writeln('tong S',S);
readln;
end.

Nếu sai chỗ nào mọi người bổ sung nhé

Bài tập 4

program bt4;
uses crt;
var n,i:interger;
begin
clrscr;
write('nhap gia tri n:=');
readln(n);
i:=1;
while (i<=n) do
begin
if (n mod i )=0 then write ('uoc :=',i);
i:=i+1;
end;
readln;
End.

bài tập đựơc sưu tầm bởi Mr KID thực hiện và trình bày QD_TeMoTOJi_CNTT

bài tập 5

program bt5;
uses crt;
var a,b,c :integer;
begin
clrscr;
write('nhap a:=');
readln(a);
write('nhap b:=');
readln(b);
while a>0 do
begin
if b>a then
begin
c:=a;
a:=b;
b:=c;
end;
a:=a - b;
end;
writeln('UCLN:=',b);
readln;
End.

Mời mọi người tham khảo nhé
còn bài trên là bài 3 chứ ko phải bài 4

oach! dao nay` ba` xa~ minh` gioi? wa'
bai` kho' thia' ma` lam` nhoay nhoay' !

Ca' chep' thoai anh em ui!