Viết đoạn lệnh để tìm số nhỏ nhất trong 3 số a,b,c
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.
*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;
uses crt;
var a,b,c,d,i,min:integer;
x:array[1..4]of integer;
begin
clrscr;
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
write('Nhap c='); readln(c);
write('Nhap d='); readln(d);
x[1]:=a;
x[2]:=b;
x[3]:=c;
x[4]:=d;
min:=x[1];
for i:=1 to 4 do
if min>x[i] then min:=x[i];
writeln(min);
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.
Tìm số lớn nhất
= MAX ( a,b,c)
Tìm số nhỏ nhất
= MIN ( a,b,c)
dem:=0;
for i:=1 to n do
if i mod 2<>0 then inc(dem);
a) \(A=\left\{\overline{abc};\overline{acb};\overline{bac};\overline{bca};\overline{cab};\overline{cba}\right\}\)
b) Hai số nhỏ nhất là \(\overline{abc};\overline{acb}\)
Theo đề bài ta có :
\(\overline{abc}+\overline{acb}=488\)
\(\Rightarrow100a+10b+c+100a+10c+b=488\)
\(\Rightarrow200+10b+10c+\left(b+c\right)=488\)
\(\Rightarrow200a+10\left(b+c\right)+\left(b+c\right)=400+8.10+8\)
\(\Rightarrow\left\{{}\begin{matrix}a=400:200=2\\b+c=8\end{matrix}\right.\)
mà \(0< a< b< c\)
\(\Rightarrow\left\{{}\begin{matrix}a=2\\b=3\\c=5\end{matrix}\right.\)
Vậy 3 chữ số đó là 2 ;3; 5
If a < b then D:=a;
If b < c then D:=b;
If c < a then D:=c;