Question

Bài 1: Viết chương trình con tìm giá trị nhỏ nhất của 2 số nguyên a và b

Bài 2:Viết chương trình con tính cạnh huyền c với 2 cạnh góc vuông a,b nhập từ bàn phím

Giúp em giải gấp với ạ

Answer 1

Bài 1: 

function min(a,b:longint):longint;

begin

min:=a;

if min>b then min:=b;

end;

Bài 2: 

function canhhuyen(a,b:real):real;

var c:real;

begin

c:=sqrt(sqr(a)+sqr(b));

canhhuyen:=c;

end;