Câu 1:
uses crt;
var f:text; a,b,c:longint;
begin
clrscr;
assign(f,'BAI1.INP');reset(f);
readln(f,a,b,c);
close(f);
assign(f,'BAI1.OUT');rewrite(f);
if (a+b>c)and(a+c>b)and(b+c>a)and(a>0)and(b>0)and(c>0) then
begin
writeln(f,'La tam giac');
writeln(f,'Cho vi: ',a+b+c);
end else writeln(f,'La tam giac');
close(f);
end.
Câu 2:
uses crt;
var a,b,t:longint;
function binhphuong(a:longint):longint;
begin
binhphuong:=a*a;
end;
begin
clrscr;
write('Nhap a,b: ');readln(a,b);
t:=binhphuong(a)+binhphuong(b);
writeln('t= ',t);
readln
end.
