program bt;
Var a,b:integer;
Begin
Writeln('nhap a:=');
Readln(a);
Writeln('nhap b:=');
Readln(b);
If a>b then writeln ('a lon hon b') else writeln ('a be hon b');
Readln;
End.
uses crt;
var a,b:integer;
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
if a>b then writeln(a,' lon hon ',b)
else if a<b then writeln(b,' lon hon ',a)
else writeln('hai so bang nhau');
readln;
end.
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 nhập số nguyên A từ bàn phím,kiểm tra thông báo ra màn hình xem số đó là số âm hay dương
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
Viết chương trình nhập vào 2 số d và b từ bàn phím xuất xuất ra màn hình số a nếu a>b ngược lại xảy ra b
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
Hãy viết chương trình nhập 2 số nguyên x và y bất ki tư bàn phím sau đó in giá trị của biểu thức x^2+2y+1 ra màn hình
Mk cần gấp help me
Cảm ơn mọi người rất nhiều
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
