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
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
By Skylar
By Skylar
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
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!
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.