viết chương trình bằng turbo pascal (có ảnh) tìm số nhỏ nhất trong 3 số a,b,c lưu ý: ko ảnh=báo cáo+1sao nội dung không phải là chương trìn

0 bình luận về “viết chương trình bằng turbo pascal (có ảnh) tìm số nhỏ nhất trong 3 số a,b,c lưu ý: ko ảnh=báo cáo+1sao nội dung không phải là chương trìn”

1. program phuongt;

   uses crt;

     var a, b, c, min: real;

   begin

              clrscr;

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

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

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

              min:=a;

              if min>b then min:=b;

              if min>c then min:=c;

              write(‘So nho nhat la: ‘, min);

              readln

   end.

   

   Bình luận

2. uses crt;
   var a, b, c, min: longint;
   begin
    clrscr;
     write (‘nhap a: ‘);  readln (a);
     write (‘nhap b: ‘);  readln (b);
     write (‘nhap c: ‘);  readln (c);
     if (a=b) and (b=c) then
     begin
     writeln (‘ba so bang nhau’);
     readln;
     exit;
     end;
     if a>b then min:=b;
     if a<=b then min:=a;
     if min>=c then min:=c;
     writeln (‘so nho nhat la: ‘,min);
    readln;
   end.

   

   Bình luận