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.
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!
Xem chi tiết
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
Cho chương trình sau:
Đối với từng đoạn chương trình Pascal sau đây, hãy cho biết lệnh writeln(j,k) sẽ in ra màn hình giá trị của j,k là bao nhiêu?
j:=2;k:=3;
for i:=1 to 5 do j:=j+2;
k:=k+j;
Writeln(j,k)
Giúp mình với!
Cảm ơn nhiều!
Xem chi tiết