VCT Tìm số bé nhất trong 3 số pascal nha mình hứa sẽ cho 5*+ctlhn cho bạn nhanh nhất

0 bình luận về “VCT Tìm số bé nhất trong 3 số pascal nha mình hứa sẽ cho 5*+ctlhn cho bạn nhanh nhất”

1. program nhonhat;
   uses crt;
   var a,b,c,min:integer;
   begin
   clrscr;
   write(‘Nhap so thu 1: ‘); readln(a);
   write(‘Nhap so thu 2: ‘);  readln(b);
   write(‘Nhap so thu 3: ‘);  readln(c);
   min:=a;
   if b<min then min:=b;
   if c<min then min:=c;
   write(‘So be nhat la: ‘,min);
   readln
   end.

   cho ctlhn nha bạn!

   Bình luận

2. program SO_NHO_NHAT;
   uses crt;
   var a,b,c,min:real;
   begin
   clrscr;

   Writeln(‘TIM SO NHO NHAT TRONG 3 SO’);

   Writeln(‘————————————‘)
   write(‘Nhap a=’); readln(a);
   write(‘Nhap b=’);  readln(b);
   write(‘Nhap c=’);  readln(c);
   min:=a;
   if b<min then min:=b;
   if c<min then min:=c;
   write(‘So be nhat la: ‘,min);
   readln
   end.

   Bình luận