var n, i: word;
begin
readln(n);
while (n<>0) do
begin
writeln(n mod 10);
n:=n div 10;
end;
readln
end.
var n, i: word;
begin
readln(n);
while (n<>0) do
begin
writeln(n mod 10);
n:=n div 10;
end;
readln
end.
bài 1:Viết chương trình nhập vào một mảng số nguyên gồm n phần tử(n<100) nhập từ bàn phím thực hiện các công việc sau:
a)In ra màn hình các phần tử của mảng vừa nhập.
b) Sắp xếp dãy số nguyên theo thứ tự tăng dần.
c) Nhập số nguyên x bất kì.Tính số chắn lớn nhất không được vượt quá x.
Viết chương trình nhập từ bàn phím một số nguyên x hãy tính và đưa ra màn hình f(x)=x^10+x^5+1
viết chương trình nhập vào mảng A n phần tử in ra màn hình các phân tử chia hết cho 5
Viết chương trình nhập vào từ bàn phím số nguyên dương n(n
Viết chương trình nhập vào từ bàn phím số nguyên dương n(n
Anh nào giúp em với ạ
Câu 1: anh(chị) hãy nhập vào một mảng gồm cso n số bất kì, sau đó in ra màn hình mảng đó.
Câu 2: in ra những số chẵn, lẻ, chia hết cho 3
Câu 3: in ra những số ở vị trí chẵn, lẻ
Viết chương trình nhập vào 1 số N nguyên dương và in ra màn hình các số chẵn từ 0 đến N, sao cho mỗi số chiếm 4 vị trí và 1 dòng có 15 số.
Bài 1:Theo quan niệm của một số người,biển số xe ô tô,xe máy có hai chữ số tận cùng là 68 được coi là biển số đẹp.Em hãy viết chương trình kiểm tra một biển số xe có số là N bất kỳ có phải là biển số đẹp hay không?
Bài 2:Viết chương trình nhập một mảng số nguyên dương A gồm n phần tử
a.In ra mảng vừa nhập
b.Tìm phần tử nhỏ nhất trong mảng
c.Liệt kê và tính tổng các ước của phần tử A[i] trong mảng với i nhập từ bàn phím?
d.Tính tổng của số nguyên tố lớn nhất với số nguyên tố nhỏ nhất có mặt trong mảng
e.Nhập vào số nguyên dương X,kiểm tra xem trong mảng có X số đối xứng đứng cạnh nhau không?
Viết chương trình nhập vào 1 số nguyên dương gồm 3 chữ số sau đó thực hiện các phép toán ''div'' và ''mod'' để tính tổng các thành phần của các chữ số đó rồi in kết quả ra màn hình :((
Các bạn giúp mình với. Giải chi tiết ra cho mình tham khảo với ạ :(((