Bài 1:
var n:integer;
function snt(n:integer):boolean;
var d,i:integer;
begin
d:=0;
for i:=1 to n div 2 do if n mod i=0 then d:=d+1;
if d=1 then snt:=true else snt:=false;
end;
function tong(n:integer):integer;
begin
tong:=0;
while n>0 do
begin
tong:=tong+n mod 10;
n:=n div 10;
end;
end;
begin
write(`Nhap so n:`);
readln(n);
if snt(n) and snt(tong(n)) then writeln(n,` la so song to`)
else writeln(n,` khong phai so song to`);
readln;
end.
Bài 2:
var st,st1:string;
i,d,j:integer;
begin
write(`Nhap xau: `);
readln(st);
i:=1;
write(`Mat khau: `);
while i<=length(st) do
begin
d:=0;
j:=i;
while (st[i]=st[j]) and (j<=length(st)) do
begin
d:=d+1;
j:=j+1;
end;
if d>1 then write(d,st[i]) else write(st[i]);
i:=i+d;
end;
readln;
end.
Bài 3:
var f1,f2:text;
a:array[1..20] of integer;
i,k,max,max1:integer;
mt:boolean;
begin
assign(f1,`d:\nghi\matthu.inp`);
reset(f1);
read(f1,k);
for i:=1 to k do read(f1,a[i]);
close(f1);
max:=a[1];
for i:=2 to k do if maxassign(f2,`d:\nghi\matthu.oup`);
rewrite(f2);
max1:=max;
i:=1;
while i<=k do
begin
i:=1;
while (i<=k) and (max mod a[i]=0) do i:=i+1;
if i<=k then max:=max+max1 else write(f2,max);
end;
close(f2);
readln;
end.