Viết chương trình Pascal so sánh 3 số tự nhiên nhập từ bàn phím

0 bình luận về “Viết chương trình Pascal so sánh 3 số tự nhiên nhập từ bàn phím”

1. Đây nhé

   

   Bình luận

2. program oken;
   uses crt;
   var i,j,k,max,min,n: integer;
   begin
           clrscr;
           write(‘nhap i: ‘); readln(i);
           write(‘nhap j: ‘); readln(j);
           write(‘nhap k: ‘); readln(k);
           max:=i; min:=i;
           if max<j then max:=j
           else min:=j;
           if max<k then max:=k
           else min:=k;
           writeln(‘so lon nhat: ‘,max);
           writeln(‘so be nhat: ‘,min);
           readln;
   end.

   Bình luận