Bài 1:
program Bai1;
uses crt;
var n,i,S: integer;
Begin
write('Nhap n: '); readln(n);
S:=1; i:=1;
while i<=n do
begin
S:=S*i;
i:=i+1;
end;
write(n,'!=',S);
readln
End.
Bài 2:
program Bai2;
uses crt;
var N,i,T: integer;
Begin
write('Nhap N: '); readln(N);
for i:=1 to N do
if i mod 2<>0 then T:=T+i;
write('T = ',T);
readln
End.
Bài 3:
program Bai3;
uses crt;
var N,i,T: integer;
Begin
write('Nhap N: '); readln(N);
for i:=1 to N do
if i mod 2=0 then T:=T+i;
write('T = ',T);
readln
End.
Bài 4:
program Bai4;
uses crt;
var N,i,S: integer;
Begin
write('Nhap N: '); readln(N);
S:=1;
for i:=1 to N do
if i mod 2<>0 then S:=S*i;
write('S = ',S);
readln
End.
Bài 5:
program Bai5;
uses crt;
var N,i,S: integer;
Begin
write('Nhap N: '); readln(N);
S:=1;
for i:=1 to N do
if i mod 2=0 then S:=S*i;
write('S = ',S);
readln
End.
Bài 6:
program Bai6;
uses crt;
var n,i,d: integer;
Begin
write('Nhap n: '); readln(n);
d:=0;
for i:=1 to n do
if n mod i=0 then d:=d+1;
if d=2 then write(n,' la so nguyen to')
else write(n,' khong la so nguyen to');
readln
End.
Bài 7:
Hình 1 nha bạn, mình phải chạy chương trình nhiều lần mới ra đấy
Bài 8:
Chương trình: Hình 2
Kết quả: Hình 3
