uses crt;

var xa,ya,xb,yb,xc,yc:integer;

ab,ac,bc,cv,p,s:real;

begin

clrscr;

write('Nhap toa do diem A:'); readln(xa,ya);

write('Nhap toa do diem B:'); readln(xb,yb);

write('Nhap toa do diem C:'); readln(xc,yc);

ab:=sqrt(sqr(xa-xb)+sqr(ya-yb));

ac:=sqrt(sqr(xa-xc)+sqr(ya-yc));

bc:=sqrt(sqr(xb-xc)+sqr(yb-yc));

if (ab+bc>ac) and (ab+ac>bc) and (ac+bc>ab) then

begin

cv:=ab+bc+ac;

p:=cv/2;

s:=sqrt(p*(p-ab)*(p-ac)*(p-bc));

writeln('Chu vi la: ',cv:4:2);

writeln('Dien tich la: ',dt:4:2);

kt:=0;

if (ab=ac) and (ab<>bc) and (ac<>bc) then kt:=1;

if (ac=bc) and (ac<>ab) and (bc<>ab) then kt:=1;

if (ab=bc) and (ab<>ac) and (bc<>ac) then kt:=1;

if (ab=ac) and (ac=bc) then kt:=2;

if sqr(ab)=sqr(ac)+sqr(bc) then kt:=3;

if sqr(ac)=sqr(ab)+sqr(bc) then kt:=3;

if sqr(bc)=sqr(ab)+sqr(ac) then kt:=3;

if kt=0 then writeln('Day la tam giac thuong');

if kt=1 then writeln('Day la tam giac can');

if kt=2 then writeln('Day la tam giac deu');

if kt=3 then writeln('Day la tam giac vuong');

end

else writeln('Day khong phai la toa do 3 dinh cua mot tam giac');

readln;

end.

#include <bits/stdc++.h>

using namespace std;

double a,b,c,h,p,s;

int main()

{

cin>>a>>b>>c;

p=(a+b+c)/2;

s=sqrt(p*(p-a)*(p-b)*(p-c));

if (s>50) cout<<"Dien tich tam giac lon hon";

else cout<<"Dien tich tam giac nho hon";

return 0;

}

Bài 2: 

#include <bits/stdc++.h>;

using namespace std;

int main();

{

long m,n;

cout<<"Nhap m="; cin>>m;

cout<<"Nhap n="; cin>>n;

cout<<m*n-2;

return 0;

}

Câu 1:

uses crt;

var a,b,c,p,s:real;

begin

clrscr;

repeat

write('Nhap a='); readln(a);

write('Nhap b='); readln(b);

write('Nhap c='); readln(c);

until (a>0) and (b>0) and (c>0);

if (a+b>c) and (a+c>b) and (b+c>a) then 

   begin

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

s:=sqrt(p*(p-a)*(p-b)*(p-c));

writeln('Dien tich tam giac la: ',s:4:2);

end

else writeln('Day khong la ba canh trong mot tam giac');

readln;

end.

Câu 2: 

uses crt;

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

i,n,t,max,min:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

  begin

write('A[',i,']='); readln(a[i]);

end;

t:=0;

for i:=1 to n do 

  t:=t+a[i];

writeln('Tong cac phan tu trong day la: ',t);

max:=a[1];

min:=a[1];

for i:=1 to n do 

  begin

     if max<a[i] then max:=a[i];

if min>a[i] then min:=a[i];

end;

writeln('Gia tri lon nhat la: ',max);

writeln('Gia tri nho nhat la: ',min);

readln;

end. 

#include <bits/stdc++.h>

using namespace std;

double xa,ya,xb,yb,xc,yc,ab,ac,bc,am;

int main()

{

cin>>xa>>ya>>xb>>yb>>xc>>yc;

ab=sqrt(pow(xa-xb,2)+pow(ya-yb,2));

ac=sqrt(pow(xa-xc,2)+pow(ya-yc,2));

bc=sqrt(pow(xb-xc,2)+pow(yb-yc,2));

cout<<"AB="<<fixed<<setprecision(2)<<ab<<endl;

cout<<"AC="<<fixed<<setprecision(2)<<ac<<endl;

cout<<"BC="<<fixed<<setprecision(2)<<bc<<endl;

am=((2*(ac*ac+bc*bc)-ab*ab)/4);

cout<<"AM="<<fixed<<setprecision(2)<<sqrt(am)<<endl;

return 0;

}

uses crt;

var a,b,c:string;

i,d1,d2:integer;

begin

clrscr;

write('Nhap xau a:'); readln(a);

write('Nhap xau b:'); readln(b);

d1:=length(a);

d2:=length(b);

writeln('Tong do dai hai xau la: ',d1+d2);

c:=#32;

for i:=1 to d1 do 

  if (a[i] in ['A'..'Z']) or (a[i] in ['a'..'z']) then c:=c+a[i];

for i:=1 to d2 do 

  if b[i] in ['0'..'9'] then c:=c+b[i];

writeln('Xau c la: ',c);

readln;

end.