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 ạ
1 câu trả lời
Bài 1:
uses crt;
var a,b:real;
procedure min;
begin
if a<b then write('So nho nhat la ',a:4:2) else if b<a then write('So nho nhat la ',b:4:2)
else write('Hai so a va b bang nhau');
end;
begin
clrscr;
write('Nhap a: '); readln(a);
write('Nhap b: '); readln(b);
min;
readln
end.
Bài 2:
uses crt;
var a,b,c:real;
procedure canhhuyen;
begin
c:=sqr(a)+sqr(b);
c:=sqrt(c);
write('Canh huyen c la: ',c:4:2);
end;
begin
clrscr;
write('Nhap canh goc vuong a: '); readln(a);
write('Nhap canh goc vuong b: '); readln(b);
canhhuyen;
readln
end.
