Viết chương trình tìm max của 2 số nguyên a và b

0 bình luận về “Viết chương trình tìm max của 2 số nguyên a và b”

1. program dz;
   ues crt;
   var a,b:longint;
   procedure sosanh;
   var min,max:longint;
   begin
        if a>b then begin max:=a;min:=b;end
        else begin max:=b;min:=a;end;
        writeln(‘ So lon hon la : ‘,max);
        write(‘ So ba hon la : ‘,min);
   end;
   BEGIN
          clrscr;
          write(‘ Nhap a, b : ‘);readln(a,b);
          sosanh;
          readln
   End.

   Trả lời

2. var a,b:longint;

   begin

   write(‘Nhap a: ‘); readln(a);

   write(‘Nhap b: ‘); readln(b);

   if a>b then write(‘So lon la: ‘,a) 

   else if a<b then write(‘So lon la: ‘,b)

   else write(‘Hai so bang nhau’);

   readln;

   end.

   Trả lời