Question

Viết chương trình nhập vào 2 số a ,b Tìm ra số nhỏ nhất trong hai số đó và in kết quả lên màn hình theo hai cách : câu lệnh,điều kiện dạng thiếu và dạng đủ

Answer 1

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.