nhập một số a,b,c.hãy tính giá trị lớn nhất của chúng

0 bình luận về “nhập một số a,b,c.hãy tính giá trị lớn nhất của chúng”

1. uses crt;
   var a,b,c,max:longint;
   begin
   clrscr;
      write(‘a,b,c=’);readln(a,b,c);
      max:=a;
      if b>max then max:=b;
      if c>max then max:=c;
      writeln(‘Max= ‘,max);
   readln
   end.

   Bình luận

2. program lonnhat;

   uses crt;

   var a,b,c,max:integer;

     begin

        clrscr;

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

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

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

        max:=a;

        if b>max then max:=b;

        if c>max then max:=c;

        writeln(max);

       readln

    end.

   Bình luận