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 1540
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
Bạn cần hỏi gì?
Câu hỏi hot cùng chủ đề
-
Hỏi từ APP VIETJACK
Đã trả lời bởi chuyên gia
45437 -
Hỏi từ APP VIETJACK
Đã trả lời bởi chuyên gia
34858 -
Đã trả lời bởi chuyên gia
30670 -
Hỏi từ APP VIETJACK28265
-
Hỏi từ APP VIETJACK
Đã trả lời bởi chuyên gia
22444
Gửi báo cáo thành công!
