Tin học BT pascal

[tydfdg]

[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.

1 Nhap mot so nguyen N>0. Viet ct phan tich thanh thua so nguyen to
2 Nhap 1 so nguyen n>0. viet CT in ra N chi gom 1 chu so

 

[hdiemht]

1 Nhap mot so nguyen N>0. Viet ct phan tich thanh thua so nguyen to

Var $ n,i: integer$;
Begin
Write('Nhap n:'); readln(n);
i:=2;
While n>1 do
Begin
If n mod i =0 then
Begin
Write( i, '.'); n:=n div i;
End;
Else i:=i+1;
End; Readln; End.