uses crt;
var a,b,ln,nn:integer;
begin
clrscr;
write('a='); readln(a);
write('b='); readln(b);
ln:=a;
nn:=a;
if (a>=0) and (b>=0) then
begin
if a>b then
begin
ln:=a;
nn:=b;
end;
if b>a then
begin
ln:=b;
nn:=a;
end;
writeln('so nho nhat la: ',nn);
writeln('so lon nhat la: ',ln);
end
else writeln('vui long nhap hai so tu nhien');
readln;
end.
Viết chương trình nhập vào từ bàn phím bà số tự nhiên a,b,c: a) thông báo ra màn hình số a là số chẵn hay số lẻ
b)thông báo ra màn hình số b là số chẵn hay số lẻ
c) thông báo ra màn hình số c là số chẵn hay số lẻ
d) thông báo ra số lớn nhất trong ba số đó
Ai giúp mik với ạ
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
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 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 in ra số lớn nhất trong bốn số nhập từ bàn phím với điều kiện chỉ được dùng 2 biến
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 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
