viết chương trình nhập vào 3 số và inramax của chúng nhanh nhé mik cần gấp

0 bình luận về “viết chương trình nhập vào 3 số và inramax của chúng nhanh nhé mik cần gấp”

1. Program NN;
   Uses crt;
   Var a,b,c,max: longint;
   Begin
           Clrscr;
           Write(‘Nhap a,b,c: ‘); Readln(a,b,c);
           max:=a;
           If b>max then max:=b;
           If c>max then max:=c;
           Write(‘Max = ‘,max);
           Readln
   End.

   Bình luận

2. program ctpt;

   uses crt;

     var a, b, c, max: real;

   begin

     clrscr;

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

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

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

     max:=a;

     if max<b then max:=b;

     if max<c then max:=c;

     write(max);

    readln

   end.

   Bình luận