codeturbopascal -

Code:: program kiem_tra_nguyen_to;
uses crt;
var n,i:integer; bl:boolean;
begin
clrscr;
bl:=true;
write('nhap vao so can kiem tra tinh nguyen to: '); readln(n);
if n<=1 then bl:=false;
for i:=2 to trunc(sqrt(n)) then
if n mod i=0 then bl:=false;
if bl=true then write('so vua nhap nguyen to.')
else write('so vua nhap …

Đề:cho một dảy số gồm n phần tử ,in ra mang ban đầu,in ra tổng các ước của a[i] (không kể a[i]);tìm phần tử có tổng ước lớn nhất:

Code:: program bt;
uses crt;
var a:array[1..100] of integer;
s,max,max1,i,n,j:integer;
begin
clrscr;
writeln('nhap n');
readln(n);
for i:=1 to n do
begin
writeln('nhap a[',i,']=');
…

Code:: uses crt;
var g,c: integer;
begin
clrscr;
for c:=1 to 25 do
begin
g:=36-c;
if 4*c+2*g=100 then
write('So ga: ',g,' So cho: ',c);
end;
readln;
end.