Question

câu 1 nhập vào 3 số a,b,c. In ra số bé nhất trong 3 số

Answer 1

Program HOC24;

var a,b,c,max: integer;

begin

write('Nhap a: '); readln(a);

write('Nhap b: '); readln(b);

write('Nhap c: '); readln(c);

max:=a;

if b>max then max:=b;

if c>max then max:=c;

writeln('So lon nhat la: ',max);

readln

end.

Answer 2

Var a,b,c,min:real;

Begin

Write('a = ');readln(a);

Write('b = ');readln(b);

Write('c = ');readln(c);

min:=a;

If b < min then min:=b;

If c < min then min:=c;

Write('So nho nhat la ',min:10:2);

Readln

End.