Viết chương trình nhập vào 4 số a,b,c,d từ bàn phím. Tìm giá trị lớn nhất 4 số vừa nhập

0 bình luận về “Viết chương trình nhập vào 4 số a,b,c,d từ bàn phím. Tìm giá trị lớn nhất 4 số vừa nhập”

1. program phuongt;
   uses crt;
     var a, b, c, d, max: real;
   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: ‘, max);
          readln
   end.

   Bình luận

2. $#Quân$

   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 b>max then max:=b;

        if c>max then max:=c;

        if d>max then max:=d;

        write(‘So lon nhat la: ‘,max);

        readln;

   end.

   Bình luận