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.
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.
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);
cách 1: điều kiện dạng thiếu(chỉ có if, không có else)
uses crt;
var a,b:integer;
begin
clrscr;
write('nhap a='); readln(a);
write('nhap b='); readln(b);
if a<b then writeln('so nho nhat trong hai so la: ',a);
if b<a then writeln('so nho nhat trong hai so la: ',b);
if b=a then writeln('khong co so nho nhat trong hai so');
readln;
end,
cách 2: điều kiện dạng đủ
uses crt;
var a,b,c,kq:integer;
begin
clrscr;
write('nhap a='); readln(a);
write('nhap b='); readln(b);
if a<b then writeln('so nho nhat trong hai so la: ',a)
else if b<a then writeln('so nho nhat trong hai so la: ',b)
else writeln('khong co so nho nhat trong hai so');
readln;
end.
program TimSoLonNhat;
var a, b, c, d: integer;
begin
writeln('Nhap vao gia tri cua a: ');
readln(a);
writeln('Nhap vao gia tri cua b: ');
readln(b);
writeln('Nhap vao gia tri cua c: ');
readln(c);
writeln('Nhap vao gia tri cua d: ');
readln(d);
if (a > b) and (a > c) and (a > d) then
writeln('So lon nhat la: ', a)
else if (b > a) and (b > c) and (b > d) then
writeln('So lon nhat la: ', b)
else if (c > a) and (c > b) and (c > d) then
writeln('So lon nhat la: ', c)
else
writeln('So lon nhat la: ', d);
readln;
end.
Bước 1: Nhập a,b,c
Bước 2: ln←a;
Bước 3: Nếu ln<b thì ln←b;
Bước 4: Nếu ln<c thì ln←c;
Bước 5: Xuất ln
Bước 6: Kết thúc
cre : Nguyễn Lê Phước Thịnh
If a < b then D:=a;
If b < c then D:=b;
If c < a then D:=c;