5.Huỳnh Khánh Hà
Hỏi từ APP VIETJACK
Viết chương trình tìm ước của N trong pascal
Quảng cáo
1 câu trả lời 1164
2 năm trước
program TimUoc;
var N, i: integer;
begin write('Nhap so nguyen N: '); readln(N);
writeln('Cac uoc cua ', N, ' la:');
for i := 1 to N do
begin
if N mod i = 0 then writeln(i);
end;
end.
Quảng cáo
Câu hỏi hot cùng chủ đề
-
Hỏi từ APP VIETJACK1 44256
-
Hỏi từ APP VIETJACK24640
-
Hỏi từ APP VIETJACK21086
Gửi báo cáo thành công!