Buổi 1-2. Ngôn ngữ lập trình cơ bản (10 bài)

program eratos;
var
        n, i : longint;
function snt(u : longint):boolean;
var j : longint;
begin
        if u <= 1 then exit(false);
        if ( u = 2 ) or ( u = 3 ) then exit(true);
        for j := 2 to trunc(sqrt(u)) do
                if ( u mod j = 0 ) then exit(false);
        exit(true);
end;
begin
        readln(n);
        for i := 1 to n do
                if snt(i) = true then write(i,' ');
end.

program erataos;
var
        f: array[1..1000000]of boolean;
        n, i : longint ;
procedure sangnt( u : longint );
var
        k, i: longint;
begin
        for i := 1 to u do f[i] := true;
        f[1] := false;
        i := 2 ;
        while i <= n do
                if f[i] then
                        begin
                                k := 2;
                                while i * k <= n do
                                        begin
                                                f[i*k] := false;
                                                k := k+1;
                                        end;
                                i := i+1;
                        end
                        else
                                i := i+1
end;
begin
        readln(n);
        sangnt(n);
        for i := 1 to n do
                if f[i] = true then write(i,#32);
end.

program bai10_3;
var n,i,res : longint;
    a : array [1..100000]of longint;
function snt( u : longint ): boolean;
var j : longint;
begin
        if u <= 1 then exit(false);
        if ( u = 2 ) or ( u = 3 ) then exit(true);
        for j := 2 to trunc(sqrt(u)) do
                if ( u mod j = 0 ) then exit(false);
        exit(true);
end;
begin
        res := 0 ;
        readln(n) ;
        for i := 1 to n do read(a[i]);
        for i := 1 to n do
                if snt(a[i]) then inc(res);
        write(res);
end.

var
a,b,c:longint;
p,s:real;
begin
        ReadLn(a,b,c);
        p:=(a+b+c)/2;
        s:=sqrt(p*(p-a)*(p-b)*(p-c));
        write(p:0:2,#32,s:0:2);
end.

var
x1,y1,x2,y2:longint;
d:real;
begin
       ReadLn(x1,y1,x2,y2);
       d:=sqrt(sqr(x2-x1)+sqr(y2-y1));
       write(d:0:2);
end.

var
a,b,c,d:longint;
x1,x2:real;
begin
        ReadLn(a,b,c);
        d:=sqr(b)-4*a*c;
        x1:=(-b+sqrt(d))/(2*a);
        x2:=(-b-sqrt(d))/(2*a);
        write(x1:0:2,#32,x2:0:2);
end.

var
a,b,c,d:longint;
x:real;
begin
        ReadLn(a,b,c,d);
        x:=(((sqr(a)+sqr(b))/(c+d))-(c/d))/(1/28)+b;
        write(x:0:2);
end.

var
n:longint;
s:real;
begin
        ReadLn(n);
        s:=(n+1)*((n-1)/1+1)/2;
        write(s:0:2);
end.

program squa;
var x,n:longint;
res:real;
function canbac3(u:longint):real;
var c,d,giua:real;
begin
        d:=1;
        c:=sqrt(u);
        while c-d >=0.001 do
        begin
                giua:=(d+c)/2;
                if giua*giua*giua>x then c:=giua
                else d:=giua;
        end;
        exit(giua);
end;

program amux;
var a,x,p:longint;
const l=trunc(1e9)+7;
function amux(u,v:longint):longint;
var t:longint;
begin
        if v=0 then exit(l);
        if v=1 then exit(u);
        t:=amux(u,v mod 2);
exit((t*t*amux(u,v mod 2))mod 1);
end;
begin
        readln(a);
        readln(x);
        p:=amux(a,x);
        write(p);
end.

program tsnt;
var n,i,k:longint;
    c:array[1..1000000]of longint;
procedure phantich(u:longint);
var i:longint;
begin
        k:=0;
        i:=2;
        while i*i<=u do
        if u mod i=0 then
        begin
                k:=k+1;
                c[k]:=i;
                u:=u div i;
        end
        else i:=i+1;
        if u>1 then
                begin
                        k:=k+1;
                        c[k]:=u;
                end;
        end;
        begin
                readln(n);
                phantich(n);
                for i:=1 to k do
                write(c[i],#32);
        end.

program tsnt;
var
        n, i , k : longint;
        c:array[1..100000]of longint;
procedure phantich ( u : longint);
var
        i : longint;
begin
        i := 2; k := 0;
        while i*i <= u do
                if u mod i = 0 then
                begin
                        inc(k);
                        c[k]:= i ;
                        u :=u div i ;
                end
        else
                inc(i);
                if u > i then
                        begin
                                inc(k);
                                c[k] := u;
                        end;
end;
begin
        read(n);
        phantich(n);
        for i := 1 to k do
                write(c[i],#32);
end.

Var n: longint;
Function Tong(x: longint): longint;
Var s: longint;
Begin
        s:=0;
        While x <> 0 do
                Begin
                        s:=s+(x mod 10);
                        x:=x div 10;
                End;
        Exit(s);
End;
Begin
        Assign(Input,'NCOUNT.INP');
        Assign(Output,'NCOUNT.OUT');
        Reset(Input);
        Rewrite(Output);
        Readln(n);
        Write(Tong(n));
        Close(Input);
        Close(Output);
End.

var
        a,b:longint;
        s,p:longint;
begin
        readln(a,b);
        s:=a+b;
        p:=a*b;
        write(s,#32,p);
end.

var
a,b:longint;
c,p,s:real;
begin
        ReadLn(a,b);
        c:=sqrt(sqr(a)+sqr(b));
        p:=(a+b+c)/2;
        s:=sqrt(p*(p-a)*(p-b)*(p-c));
        write(s:0:2);
end.

var
x1,y1,x2,y2,x3,y3:longint;
x4,y4,d1,d2,d3,d4,d5,p1,s1,p2,s2:real;
begin
        ReadLn(x1,y1,x2,y2,x3,y3);
        x4:=(x1+x3)/2;
        y4:=(y1+y3)/2;
        d1:=sqrt(sqr(x2-x1)+sqr(y2-y1));
        d2:=sqrt(sqr(x3-x1)+sqr(y3-y1));
        d3:=sqrt(sqr(x3-x2)+sqr(y3-y2));
        d4:=1/2*d2;
        d5:=sqrt(sqr(d1)+sqr(d4));
        p1:=(d1+d4+d5)/2;
        s1:=sqrt(p1*(p1-d1)*(p1-d4)*(p1-d5));
        p2:=(d3+d4+d5)/2;
        s2:=sqrt(p2*(p2-d3)*(p2-d4)*(p2-d5));
        write(s1,#32,s2);
end.