Câu 1:
Dùng For...to...do:
program tong;
uses crt;
var i,N: byte;
Begin
clrscr;
N:=1;
for i:=1 to 50 do N:=N*i;
write('N = ',N);
readln
End.
Dùng While...do:
program tong;
uses crt;
var i,N: byte;
Begin
clrscr;
N:=1; i:=1;
while i<=50 do
begin
N:=N*i;
i:=i+1;
end;
write('N = ',N);
readln
End.
Câu 2:
Dùng For...to...do:
program day_so;
uses crt;
var n,i: integer;
Begin
clrscr;
write('Nhap n: '); readln(n);
write('Day so tu 1 den ',n,' la: ');
for i:=1 to n do write(i,', ');
readln
End.
Dùng While...do:
program day_so;
uses crt;
var n,i: integer;
Begin
clrscr;
write('Nhap n: '); readln(n);
write('Day so tu 1 den ',n,' la: ');
while i<=n do
begin
write(i,', ');
i:=i+1;
end;
readln
End.
