uses crt;
var n,i:integer;
begin
clrscr;
readln(n);
for i:=1 to n do
if (n mod i=0) and (i%2=1) then write(i:4);
readln;
end.
Đúng 0
Bình luận (0)
Các câu hỏi tương tự
Giúp mình với , mình cảm ơn nhiều 😘
Giúp mình tìm lỗi cú pháp với, cảm ơn nhiều.
viết chương trình in ra màn hình bảng cửu chương 14
Giúp mình với ạ cảm ơn nhiều
Giúp mình với mn , cần gấp . Cảm ơn ạ
Đọc tiếp
Giúp mình với mn , cần gấp . Cảm ơn ạ
Giúp mk với ạ, mình đang cần gấp. Xin cảm ơn.
Mình xin chào tất cả các bạn nha! Lâu rồi không học OLM chỉ vì mình bị mất tài khoản từ cuối tuần trước nên mình không được gặp các bạn. Mình mong rằng các bạn luôn giúp đỡ và hỗ trợ mình nha! Mình xin cảm ơn rất nhiều!
1.viết phương trình nhập danh sách n số và in ra tích các số lẻ trong danh sách (nhập từ bàn phím)
2. Viết phương trình nhập danh sách n số và in ra màn hình các số chẵn của danh sách (nhập từ bàn phím)
P/s: Giúp mình với ạ, mình cảm ơn nhiều><
Trong câu lệnh lặp: j:=0;
For i:= 4 to 10 do begin j:=j+2;
Write ( j );
End;
Khi kết thúc câu lệnh lặp trên giá trị j bằng bao nhiêu ?
A.2
B.14
C.12
D.10
Giúp mình câu này với!
Cảm ơn nhiều!
Giúp mình tìm ra các lỗi sai và sữa lại cho đúng nha và giải luôn câu 5 giúp mình,mình cảm ơn