Nguyễn Trung Dũng

Code:

var i,n,s:longint;
begin
        readln(n);
        s:=0;
        for i:=1 to n do
        if (n mod i=0) then
        s:=s+1;
        write(s);
end.

Code:

var i,n,s:longint;
begin
        readln(n);
        s:=0;
        for i:=1 to n do
        if (n mod i=0) and (n div i<>1) then
        begin
        s:=s+1;
        if i<>n div i then
        s:=s+1;
        end;
        write(s);
end.

Code:

var n,i,s:longint;
begin
        readln(n);
        s:=0;
        for i:=1 to n do
        if (n mod i=0) then
        begin
        s:=s+i;
        if i<>n div i then
        s:=s+1;
        end;
        if s=2 then
                write('false')
        else
                write('true');
end.

Code:

var n:longint;
function nguyento(u:longint):boolean;
var j:longint;
begin
        if (u<=1) then exit(false);
        for j:=1 to trunc (sqrt(u)) do
        if u mod j=0 then
                exit(false);
        exit(true);
end;
begin
        readln(n);
        write(nguyento(n));
end.

Code:

var a,b,i:longint;
function nguyento(u:longint):boolean;
var j: longint;
begin
        if (u<=1) then exit(false);
        for j:=2 to trunc(sqrt(u)) do
        if u mod j=0 then
                exit(false);
        exit(true);
end;
begin
        readln(a,b);
        for i:=a to b do
        if nguyento(i) then
        write(i,#32);
end.

Code:

uses math;
var m,n,i:longint;
begin
        readln(n,m);
        for i:=1 to min(m,n) do
                if (m mod 1=0) and (n mod i=0) then
        write(i,#32);
end.

Code:

var i,n:longint;
        s:real;
begin
        readln(n);
        i:=1;
        s:=0;
        while 1/n<=0.001 do
        begin
        s:=s+1/i;
        i:=i+1;
        end;
        write(s:0:2);

end.

Code:

uses math;
var a,b,i,p,res:longint;
begin
        readln(a,b);
        res:=0;
        i:=1;
        p:=min(a,b);
        while (i<=p) do
        if (a mod i=0) and (b mod i=0) then
        begin
        res:=max(res,i);
        i:=i+1;//inc(i);
        end
        else
        i:=i+1;
        write(res);
end.

Code:

var m:longint;
procedure phantics(a:longint);
var i:longint;
begin
        i:=2;
        while i*i<=a do
        if a mod i=0 then
        begin
        write(i,#32);
        a:=a div i;
        end
        else
        i:=i+1;
        if a>1 then
        write (a);
end;
begin
        readln(m);
        phantics(m)
end.

var m,n,res:longint;
function nguyento(u:longint):boolean;
var j:longint;
begin
        if (u<=1) then exit(false);
        for j :=1 to trunc(sqrt(u)) do
        if u mod j=0 then
                exit(false);
        exit(true);
end;
begin
        readln(n);
        m:=n+1;
        while not(nguyento(m))do
        m:=m+1;//inc(m);
        write(m);
end.

var m,n:longint;
function nguyento(u:longint):boolean;
var j:longint;
begin
        if (u<=1) then exit(false);
        for j:=1 to trunc(sqrt(u)) do
        if u mod j=0 then
                exit(false);
        exit(true);
end;
begin
        readln(n);
        m:=n div 10;
        while (not(nguyento(m))and(m>0)) do
        m:=m div 10;
        if(m>0) then
                write(m)
        else
                write(-1);
end.

uses math;
var i,n,res:longint;
function nguyento(u:longint):boolean;
var j:longint;
begin
       if (u<=1) then exit (false);
       for j:=1 to trunc(sqrt(u)) do
       if u mod j=0 then
               exit(false);
       exit(true);
end;
begin
       readln(n);
       if nguyento(i) then
       res:=max(res,i);
       if (i<>n div i) then
       res:=max(res,n div i);
       write(res);
end.

var
i, n: Longint;
a : array[-7..100000] of Longint;
begin
read(n);
for i := 1 to n do
read(a[i]);
for i := 1 to n do
write(a[i], #32);
end.

var
i,n: Longint;
a : array[-7..100000] of Longint;
begin
read(n);
for i := 1 to n do
read(a[i]);
for i := 1 to n Do
if a[i] mod 2 = 0 then write(a[i],
#32);
end.

var
n ,i : Longint;
a : array[-7..1000000] of Longint;
begin
read(n);
for i := 1 to n do
read(a[i]);
for i := 1 to n do
if sqrt(a[i]) = trunc(sqrt(a[i])) then
write(i,#32);
end.

var
i,n, res : Longint;
a : array[-7..100000] of Longint;
begin
read(n);
res := 0;
for i := 1 to n do
read(a[i]);
for i := 1 to n do
if (a[i] mod 2 = 0 ) and (a[i] mod 3 <>
0) then inc(res);
write(res);
end.

var
i,n,res : Longint;
a :array[-7..100000] of Longint;
begin
read(n);
for i := 1 to n do
read(a[i]);
res := a[1];
for i := 1 to n do
if res > a[i] then res := a[i];
write(res);
end.

var
i,n,res,dem: Longint;
a : array[-7..100000] of Longint;
begin
dem := 0;
readln(n);
for i := 1 to n do
read(a[i]);
res := a[1];
for i := 1 to n do
if res < i then res := a[i];
for i := 1 to n do
if a[i] = res then inc(dem);
write(dem);
end.

var
i,n, t : Longint;
tb : real;
a : array[-7..100000] of Longint;
begin
read(n);
t := 0;
for i := 1 to n do
read(a[i]);
for i := 1 to n do
t := t + a[i];
tb := t / n;
write(t,#32 ,tb:0:2);
end.

var
i,n,res : Longint;
t,tb : real;
a : array[-7..100000] of Longint;
begin
readln(n);
t := 0;
res := 0;
for i := 1 to n do
read(a[i]);
for i := 1 to n do
t := t + a[i];
tb := t / n ;
for i := 1 to n do
if a[i] >= tb then inc(res);
write(res);
end.

var
i,n,k,p : Longint;
a : array[-7..100000] of Longint;
begin
read(n,k);
for i := 1 to n do
read(a[i]);
p := 0;
for i := 1 to n do
if a[i] = k then
begin
write(i);
inc(p);
break;
end;
if p = 0 then write('-1');
end.

var
i, n ,rmax,rmin: Longint;
a : array[-7..100000] of Longint;
begin
readln(n);
for i := 1 to n do
read(a[i]);
rmax := a[1];
rmin := a[1];
for i := 1 to n do
if rmax < a[i] then rmax := a[i];
for i := 1 to n do
if rmin > a[i] then rmin := a[i];
write(abs(rmax-rmin));
end.

uses math;
var a,b:arry[-7..100000] of longint;
        n,i,res,k:longint;
begin
        readln(n);
        for i:1 to n do
                read(a[i]);
        for i:=1 to n do
        begin
                res:=a[i]+(a[i+1])+(a[i+2);
        end;
        k:=res[0];
        for i:=0 to (n) do
        begin
                if (k<res[i])then
                k:=res[i];
        end;
        write(res);
end.

var a:array[-7..100000] of longint;
        i,n,p:longint;
begin
        readln(n);
        p:=1;
        for i:=1 to n-1 do
        if a[i]>a[i+1] then
        begin
                p:=0;
                break;
        end;
        if p=1 then
                write(true)
        else
                write(false);
end.

PROGRAM Fibonacci;
Uses CRT;
VAR
   First, Second, Temp : Longint;
   ix,n : integer;
BEGIN
   Clrscr;
   Write('Nhap n = ');
   Readln(n);
   Writeln('Day so Fibonacci:');
   First := 0;
   Second := 1;
   write(First:10);
   write(Second:10);
   for ix := 0 to n do
   begin
      Temp := FIrst + Second;
      First := Second;
      Second := Temp;
      write(Temp:10);
   end;
   Readln;
END.