uses crt;
var a,b,c,tam:real;
x:array[1..3]of real;
i,j:integer;
begin
clrscr;
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
write('Nhap c='); readln(c);
x[1]:=a;
x[2]:=b;
x[3]:=c;
for i:=1 to 3-1 do
for j:=i+1 to 3 do
if x[i]>x[j] then
begin
tam:=x[i];
x[i]:=x[j];
x[j]:=tam;
end;
for i:=1 to 3 do write(x[i]:4);
readln;
end.
lập trình nhập vào từ bàn phím 3 số, in ra 3 số đó ra màn hình theo thứ tự tăng dần.
viết phương trình nhập vào dãy A gồm n là số nguyên
a) tìm và đưa ra màn hình giá trị lớn nhất và giá trị nhỏ nhất của A
b)Sắp xếp và đưa ra màn hình dãy A theo thứ tự không tăng
c)Sắp xếp và đưa ra màn hình dãy A theo thứ tự không giảm
giúp mình với nha tại bài này là bài thi áaaa
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 một số tự nhiên từ 2 đến 8 và in ra màn hình thứ tương ứng với số đã nhập
viết chương trình tính tam giác: Nhập ba số a,b,c bất kì.Kiểm tra xem nó có thể là ba cạnh của tam giác hay không, nếu không thì in ra màn hình ''không làm ba cạnh của một tam giác', ngược lại thì in diện tích, chu vi của tam giác ra màn hình
Nhập vào 2 số a và b. Nếu a>b, thì in ra màn hình a ngược lại thì in ra b
Viết chương trình nhập vào 3 số a,b,c sắp xếp a,b,c theo thứ tự giảm dần.
VCT nhập vào số tự nhiên n. In ra màn hình kết quả tính n!
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
