Uses CRT;
Var a,b,c,d,MAX : integer;
Begin
clrscr;
Readln(a,b,c,d);
MAX:=a
If MAX<b then MAX:=b;
If MAX<c then MAX:=c;
If MAX<d then MAX:=d;
Writeln('So lon nhat la',MAX);
Readln
End.
( Chưa học nhưng mình đọc trước :v Sai thì mong được bổ sung )
viết chương trình pascal :
- So sánh 2 số nhập từ bàn phím
-Tìm số nhỏ nhất trong 4 số nhập từ bàn phím
-hoán đổi giá trị của 2 biến x, y theo thứ tự không giảm
-in ra kết quả sắp xếp 3 số nhập từ bàn phím theo thứ tự không tăng
Viết chương trình in ra màn hình Dãy số từ 1 đến n bằng ngôn ngữ lập trình Pascal dùng lệnh lặp for..... do với n được nhập vào từ bàn phím
Viết chương trình nhập vào 1dãy n số (n được nhập từ bàn phím) tìm giá trị lớn nhất trong dãy vừa lập
Viết chương trình nhập vào 2 số nguyên a và b khác nhau từ bàn phím. So sánh 2 số đó rồi in ra số lớn hơn.
viết chương trình in ra màn hình các số hoàn hảo trong khoảng từ 1 đến N Với N nguyên dương nhập từ bàn phím
viết chương trình in ra màn hình các số hoàn hảo trong khoảng từ 1 đến N Với N nguyên dương nhập từ bàn phím
viết chương trình in ra màn hình các số hoàn hảo trong khoảng từ 1 đến N Với N nguyên dương nhập từ bàn phím
Viết chương trình nhập vào từ bàn phím số nguyên a, sử dụng câu lệnh điều kiện để kiểm tra xem a có nằm trong khoảng từ 1 đến 100 hay ko , thông báo kết quả ra màn hình
Em hãy GIẢI BÀI TOÁN sau: Cho 4 số nguyên a,b,c,d được nhập từ bàn phím. Tìm và in ra số lớn nhất (biến max) trong các số đã cho. *