Viết chương trình tìm số lớn nhất trong ba số nguyên được nhập từ bàn phím?

0 bình luận về “Viết chương trình tìm số lớn nhất trong ba số nguyên được nhập từ bàn phím?”

1. Program BTT;
   Uses crt;
   Var a,b,c,max: longint;
   Begin
           Clrscr;
           Write(‘Nhap so a: ‘); Readln(a);
           Write(‘Nhap so b: ‘); Readln(b);
           Write(‘Nhap so c: ‘); Readln(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 tim_max;

   uses crt;

   var m,n,k:real;

   max:real;

   begin

   clrscr;

   write(‘nhap so thu nhat =’); readln(m);

   readln(m); write(‘nhap so thu hai =’); readln(n);

   readln(n); write(‘nhap so thu ba =’); readln(k);

   max:=m;

   if n>max then max:=n; if k>max then max:=k;

   writeln(‘gia_tri_lon_nhat=’,max:4:0);

   readln;

   end.

   Bình luận