Câu 1:

uses crt;

var n,i,d: integer;

begin

clrscr;

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 writeln (n,' la so nguyen to')

else writeln (n,' khong phai la so nguyen to');

readln;

end.

Câu 2:

uses crt;

var i,n,s: longint;

begin

clrscr;

write ('nhap n: ');  readln (n);

s:=1;

for i:=1 to n do s:=s*i;

writeln ('Tich la: ',s);

readln;

end.

$#Trumtinhoc$

câu 1:

uses crt;
var n,i:integer;
begin
clrscr;
write('nhap n: '); readln(n);
if n<2 then write(n,' khong phai la so nguyen to')
else
begin
i:=2;
while n mod i <> 0 do i:=i+1;
if n=i then writeln(n,' la so nguyen to') 
else
writeln(n,' khong phai la so nguyen to');
end;
readln;
end.

câu 2:

uses crt;
var i,t,n: longint;
begin
clrscr;
write('nhap n: '); readln(n);
t:=1;
for i:=2 to n do
t:=t*i;
write('tich cac so tu 1 toi ',n,' la: ',t);
readln;
end.