Nhập a, b, c, d từ bàn phím tìm gtri lớn nhất của 4 số vừa nhập

0 bình luận về “Nhập a, b, c, d từ bàn phím tìm gtri lớn nhất của 4 số vừa nhập”

1. program lon_nhat;

   uses crt;

   var a,b,c,d,max:integer;

   begin

        clrscr;

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

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

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

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

        max:=a;

        if max<b then max:=b;

        if max<c then max:=c;

        if max<d then max:=d;

        write(‘Gia tri lon nhat la: ‘,max);

        readln;

   end.

   Bình luận

2. uses crt;

   var a,b,c,d,max: integer;

   begin

   clrscr;

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

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

   write (‘nhap c: ‘);  readln (c);

   write (‘nhap d: ‘);  readln (d);

   max:=a;
   if max<b then max:=b;
   if max<c then max:=c;
   if max<d then max:=d;
   write(‘Gia tri lon nhat la: ‘,max);
   readln;
   end.

   Bình luận