Viết chương trình pascal nhập vào 3 số a,b,c nhập từ bàn phím in ra kết quả lớn nhất

0 bình luận về “Viết chương trình pascal nhập vào 3 số a,b,c nhập từ bàn phím in ra kết quả lớn nhất”

1. program so_max;

   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;

          write(‘So lon nhat la: ‘,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);

   write(‘nhap so thu hai =’); 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.

   ~Xin hay nhất ạ~

   Bình luận