Question

viếtchương trình nhập ba số bất kì. tính và xuất tổng số lớn nhât và số nhỏ nhất trong ba số đó

Answer 1

program bai1;

vả a,b,c:longint;

begin

write('Nhap so thu nhat');readln(a);

write('Nhap so thu hai);readln(b);

write('Nhap so thu ba');readln(c);

max:=a;min:=a;

if (max<b) and (min>b) then

begin

max:=b;

min:=b;

end;

else if (max<c) and (min>c) then

begin

max:=c;

min:=c;

else begin

max:=a;

min:=a;

end;

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

writeln('So be nhat la ',min);

readln

end.