Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
program tim_gtnn;
uses crt;
var min,a,b,c: real;
begin
clrscr;
writeln('nhap so thu nhat:'); readln(a);
writeln('nhap so thu hai:'); readln(b);
writeln('nhap so thu ba:'); readln(c);
min:=a;
min:=b;
min:=c;
if min>a then min:=a;
if min>b then min:=b;
if min>c then min:=c;
writeln(' gia tri nho nhat la:',min:6:2);
readln;
end.
Tham khảo!
program baitap;
uses crt;
var a:integer;
procedure chanle(x:integer);
begin
if ((x mod 2) = 0) then write('So nhap vao la so chan.') else
write('So nhap vao la so le.');
end;
begin
clrscr;
write('Nhap a: ');readln(a);
chanle(a);
readln;
end
uses crt;
var a,b,c,nn:integer;
//chuongtrinhcon
function min(var x,y:integer):integer;
begin
if x<y then min:=x
else min:=y;
end;
//chuongtrinhchinh
begin
clrscr;
readln(a,b,c);
nn=min(a,b);
nn=min(nn,c);
writeln(nn);
readln;
end.
*Dạng đầy đủ:
If a>b then max:=b else max:=a;
If b>c then max:=c else max:=b;
if c>a then max:=a else max:=c;
*Dạng thiếu:
If a>b then max:=b;
If b>c then max:=c;
if c>a then max:=a;
Min chứ chị nhỉ?