Quảng cáo
1 câu trả lời 301
3 năm trước
Program Max_Min;
Uses crt;
Var a,b,c,d:integer;
max,min:integer;
Begin
clrscr;
write('nhap so thu nhat :'); readln(a);
max:=a; min:=a;
write('nhap so thu hai :'); readln(b);
ifmax<b>b thenmin:=b;
write('nhap so thu ba :'); readln(c);
ifmaxc then min:=c;
write('nhap so thu tu :'); readln(d);
ifmaxd then min:=d;
writeln('So *** nhat la :',max);
writeln('So nho nhat la :',min);
readln;
End.</b>
Quảng cáo
Bạn muốn hỏi bài tập?
Câu hỏi hot cùng chủ đề
-
Hỏi từ APP VIETJACK44971
-
Hỏi từ APP VIETJACK27113
Gửi báo cáo thành công!
