Câu 1: Cho chương trình sau Program Min_ba_so; var a, b, c: real; Function Min(a, b: real): real; begin if a

20/08/2021 Bởi Maya

0 bình luận về “Câu 1: Cho chương trình sau Program Min_ba_so; var a, b, c: real; Function Min(a, b: real): real; begin if a<b then Min:=a else Min:=b; end;”

1. 1. Tên hàm: Min

   2. Giá trị trả về: Real

   3. 

   4. If a<b then Min:=a else Min:=b;

   5. 
   Câu 2:

   Function UCLN(x,y: longint): longint;
   Begin
           While x<>y do
                   If x>y then x:=x-y
                   Else If y>x then y:=y-x;
           UCLN:=x;
   End.

   Bình luận

2. 1. Min

   2. Số thực (real)

   3.

   4. Min:=a và Min:=b;

   5. Biến toàn cục: a,b,c

   Biến cục bộ: không có

   Câu 2:

   var a,b,t : int64;
   begin
           read(a,b);
           close(input);
          while a>0 do
           begin
           t:=b mod a;
           b:=a;
           a:=t;
           end;
          write(‘UCLN la: ‘,b);

   end.

   Bình luận