Viết chương trình nhập 4 số nguyên và in ra Max ,Min

0 bình luận về “Viết chương trình nhập 4 số nguyên và in ra Max ,Min”

1. 1)IN RA MAX 

   program abc;

   uses crt;

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

   begin

   clrscr;

   writeln(‘TIM SO LON NHAT TRONG BON SO A , B ,C , D’);

   write(‘nhap a=’);

   readln(a);

   writerite(‘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; 
        Writeln(‘So lon nhat la: ‘,max: 4: 2); 
   Readln; 
   END

    2)IN RA MIN 

   Program TIM_SO_LON_NHAT;
   Uses crt; 
   Var a,b,c,d,min: real; 
   BEGIN Clrscr; 
        Writeln(‘TIM SO NHO NHAT TRONG BON SO A, B, C, D’); 
        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 min:=b; 
             If c>max then min:=c; 
             if d>max then min:=d; 
        Writeln(‘So lon nhat la: ‘,min: 4: 2); 
   Readln; 
   END.

   Bình luận