Verified answer

uses crt;

var a,b,c,d,min:integer;

begin

clrscr;

write('Nhap a,b,c,d=');readln(a,b,c,d);

min:=a;

if b<min then min:=b ;

if c<min then min:=c;

writeln('So min=',min);

readln;

end.

Của bạn đây:

Chương trình đã được Test rồi đó bạn.

Chạy đúng 10000000% luôn:

Nếu bạn muốn lấy 3 số a,b,c ngẫu nhiên không cần nhập từ bàn phím (Mình hiểu đề là như vậy.) thì đây:

Program Bai_1;

Uses Crt;

Var a,b,c,Max: Integer;

Begin

Clrscr;

Randomize;

a:= Random(200)-Random(200);

b:= Random(200)-Random(200);

c:= Random(200)-Random(200);

Max:=a;

If b>max then Max := b;

If c>max then Max := c;

Write('Ba so a,b,c la: ');

Writeln(a,' ',b,' ',c,' ');

Write('So lon nhat la: ',Max);

Readln

End.

Hoặc nếu muốn nhập a,b,c từ bàn phím thì đây:

Program Bai_2;

Uses Crt;

Var a,b,c,Max: Integer;

Begin

Clrscr;

Write('Nhap a b c: ');

Readln(a,b,c);

Max:=a;

If b>max then Max := b;

If c>max then Max := c;

Write('Ba so a,b,c la: ');

Writeln(a,' ',b,' ',c,' ');

Write('So lon nhat la: ',Max);

Readln

End.

Chúc bạn thi học kì đạt kết quả cao..!!!!

Thân ái..!!!

*****(^.^)

a) dễ mà. bạn chỉ cần vừa nhập vừa so sánh sau đó in ra thôi mà, nếu bài

yêu cầu nhiều số hơn thì cóp xuống ( sau nhập c) và thay kí tự là xong

b) Chương trình

program in_số;

uses crt;

var a,b,c,min:integer;

begin clrscr;

write( ' nhập a = ' ); readln(a); min:=a;

write( ' nhập b = ' ); readln(b);

if min > b then min := b;

write( ' nhập c = ' ); readln(c);

if min > c then min := c;

clrscr ; writeln ;

writeln( ' Dãy số bạn vừa nhập là : ' , a , ' ' , b , ' ' , c );

write(' Trong dãy đó số nhỏ nhất là : ' , min); readln;end.

var a,b,c:kieu so(integer);

begin

writeln("nhap vao 3 so nguyen");

readln(a,b,c);

if a<b and a<c then

writeln("so lon nhat la:",a);

else

if b<a and b<c then

writeln("so lon nhat la :",b);

else

writeln( "so lon nhat la :",c);

readln();

end.

chuc ban thanh cong !