Nguyễn Thị Ngọc Trâm's Profile

Var

m,a,b:Integer;

Begin

m:=a+b;

If m mod 2=0 then write('chan')

else write('le');

readln

End.

Var

a,b,c : real;

Begin 

Readln(a); Readln(b);

If (a>b) and (a>c) then Writeln('GTLN la a');

If (b>a) and (b>c) then Writeln('GTLN la b');

If (c>b) and (c>a) then Writeln('GTLN la c');

Readln;

End.

Var

a:array[1..100] of integer;

m,n:integer;

Begin

Readln(n);

For i:=1 to n do readln(a[i]);

For i:=1 to n do

   If a[i]>0 then m:=a[i];

write(m);

readln

End.

Sử dụng hàm ABS

Var

a:integer;

Begin

readln(a);

If a<0 then write('khong thuc hien')

else if (a mod 5=0) and (a mod 2=0) and (a mod 3=0) then write('la boi cua 2,3,5');

readln

End.

Var

a,b,c : Integer;

Begin 

Readln(a); Readln(b); Readln(c);

If (a>b) and (a>c) then Writeln('GTLN la a');

If (b>a) and (b>c) then Writeln('GTLN la b');

If (c>b) and (c>a) then Writeln('GTLN la c');

Readln;

End.

Var

  a:array[1..7] of integer;

  i:integer;

Begin

  For i:=1 to 7 do readln(a[i]);

  For i:=1 to 7 do write(a[i],'   ');

readln

End.

Var

    s:string;

Begin

    Readln(s);

    While s[1]=#32 do delete(s,1,1);

    While pos(#32#32,s)<>0 do Delete(s,pos(#32#32,s),1);

    While s[length(s)]=#32 do Delete(s,length(s),1);

    Write('xau sau khi chuan hoa la:',s);

readln

End.

Var

     A,b,c,p:integer;

Begin

      Readln(a);readln(b);readln(c);

      If (a>0) and (b>0) and (c>0) and (a+b>c) and (b+c>a) and (c+a)>b then

          Begin  

                  P:=(a+b+c)/2;

                  Writeln('chu vi=',p*2,' dien tich=',sqrt(p*(p-a)*(p-b)*(p-c)));

          End Else write('khong the tao thanh tam giac');

Readln

End.

Var

a:real;