Hãy mô tả thuật toán của các bài toán sau:
a) cho 2 số a và b (a>0, b>0). Tìm ước chung của 2 số a và b.
b) Tính diện tích và chu vi vủa 1 thửa ruộng hình chữ nhật có chiều dài là b, chiều rộng là a.
Mn giúp em vs ạ mai em thi rồi!!
Hãy mô tả thuật toán của các bài toán sau:
a) cho 2 số a và b (a>0, b>0). Tìm ước chung của 2 số a và b.
b) Tính diện tích và chu vi vủa 1 thửa ruộng hình chữ nhật có chiều dài là b, chiều rộng là a.
Mn giúp em vs ạ mai em thi rồi!!
a,Program U_C_L_N;
uses crt;
var a , b : integer;
begin
write (‘nhap so a la ‘);readln (a);
write (‘nhap so b la ‘);readln (b);
while a < > b do
if a >0 and b>0 then a := a – b else b := b – a ;
write ( ‘ UCLN la :’ , a );
readln
end.