Bài Tập tin học 11

[hung1xpro96]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

B/t : 1/ Cho số tự nhiên n >=2 Sủ dụng chương trình có sử dụng chương trình con đệ qui để phân tích số n thành tích các thừa số nguyên tố .

 

[p_trk]

mình làm theo while ...do bạn tham khảo xem sao
VAR i,n : integer;
BEGIN
Write ('Nhap n:');
Readln(n);
Write (n,'=');
repeat
i:= 2;
while n mod i <> 0 DO
i:=i+1;
Write(i);
n:=n DIV i;
if n > 1 then
write ('*');
until n = 1;
readln;
END.

 

[hung1xpro96]

mình làm theo while ...do bạn tham khảo xem sao
VAR i,n : integer;
BEGIN
Write ('Nhap n:');
Readln(n);
Write (n,'=');
repeat
i:= 2;
while n mod i <> 0 DO
i:=i+1;
Write(i);
n:=n DIV i;
if n > 1 then
write ('*');
until n = 1;
readln;
END.

Sai rồi bạn mình bảo giải vài với chương trình con mà bạn chứ đâu phải như bạn giải đâu