Program Hinh_Tamgiac_Program;
Uses crt;
Var a,b,c,s,p : real;
Begin
Clrscr;
Writeln(‘HINH TAM GIAC:’);
Write(‘nhap a =’);readln(a);
Write (‘nhap b =’);readln(b); Write(‘nhap c =’);readln(c);
If ((a+b)>c)and((b+c)>a)and((a+c)>b) then
Begin
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c)); Writeln(‘Chu vi tam giac:’,2*p:4:2) ; Writeln(‘Dien tich tam giac:’,s:4:2);
End
Else
Writeln(a,’, ‘, b,’, ‘, c, ‘ khong phai la ba canh cua tam giac’) ;
Readln;
End.

uses crt;

var a:integer;

begin

clrscr;

readln(a);

writeln(a*4);

writeln(a*a);

readln;

end.

var a,b,s:integer; c:word; begin write('nhap avà b '); read(a,b); s:=a*b*1/2; c:=(a+b)*2; writeln('dien tich la ' s ); write('chu vi la 'c); readln end

#include <bits/stdc++.h>

using namespace std;

double a,b,c;

int main()

{

cin>>a>>b;

c=sqrt(a*a+b*b);

cout<<fixed<<setprecision(2)<<a+b+c<<endl;

cout<<fixed<<setprecision(2)<<a*b/2<<endl;

return 0;

}

var a,b,s:integer;

c:word;

begin

write('nhap avà b ');

read(a,b);

s:=a*b*1/2;

c:=(a+b)*2;

writeln('dien tich la '; s );

write('chu vi la 'c);

readln

end

program CVDT;

uses crt;

var a,b,c,P,S;

begin

Writeln('Nhap a va b');

Readln(a,b);

c:= a*a +b*b; S:= (a*b)/2;

Writeln('Dien tich tam giac vuong la ',S);

writeln('Chu vi tam giac vuong la ', SQRT(c);

Readln;

end.

Input của chương trình là gì bạn nhỉ?