uses crt;
var a,b,tam:integer;
begin
clrscr;
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
if a>b then
begin
tam:=a;
a:=b;
b:=tam;
end;
writeln(a);
writeln(b);
readln;
end.
Câu 1: Viết chương trình nhập 10 số nguyên N và tính tổng các số đó
Câu 2: Viết chương trình nhập 10 số nguyên N và in ra màn hình số lượng các số chẳn đã nhập được
Câu 3: Viết chương trình nhập 2 số M, N (M nhỏ hơn N) in ra màn hình các số lẻ có trong khoảng từ M đến N
Các bạn ai đó giúp mình làm những bài này nhé. Cảm ơn!
Viết chương trình nhập một số nguyên dương rồi in màn hình tất cả các ước số chẵn của nó
Viết chương trình nhập n là một số tự nhiên từ bàn phím , rồi tính 5n , rồi
in kết quả ra màn hình.
Bài 1: Viết chương trình pascal thực hiện các yêu cầu sau: a) Nhập từ bàn phím 1 số nguyên n b) In ra màn hình kết quả tổng các số nguyên từ 1 đến n (sử dụng câu lệnh lặp while...do) Bài 2: Viết chương trình pascal thực hiện câc yêu cầu sau: a) Nhập từ bàn phím 1 số nguyên dương n b) In ra màn hình kết quả tổng các số lẻ từ 1 đến n (sử dụng câu lệnh lặp while...do giúp mình với mình đang cần gấp rất gấp luôn
Viết chương trình nhập dãy số a gồm n phần tử (3<=n<=120)
a)In ra màn hình số lớn thứ m(m nhập từ bàn phím và 1<=m<=n)
b)Chọn các số sao cho có tổng của chúng lớn nhất theo nguyên tắc không chọn 3 số liên tiếp nhau trong dãy .In ra màn hình tổng và vị trí các số đã chọn.
giúp mình vs viết trên pascal nhá!
1. Viết chương trình nhập vào 1 số tự nhiên P. Tính và in ra màn hình các số lẻ và tổng các số lẻ từ 1 đến P. 2.Viết chương trình nhập vào 1 số tự nhiên N. Tính và in ra màn hình các số chẵn và tổng các số chẵn từ 1 đến N. 3. Viết chương trình nhập vào 1 số tự nhiên N. Tính tổng các số là ước của N. 4. Viết chương trình nhập vào 1 số tự nhiên N. Tính tổng các số là bội của 3 mà nhỏ hơn hoặc bằng N.
viết chương trình nhập vào 2 số tự nhiên a, b từ bàn phím và in ra màn hình hiệu 2 số đó
Giúp e vs ạ mai e thi r
Viết chương trình nhập vào 5 số nguyên bất kì in ra màn hình số chẵn và số lẻ trong dãy số vừa nhập
