Tra cứu thuật ngữ tin học viết tắt
Bạn đang xem bản rút gọn của tài liệu. Xem và tải ngay bản đầy đủ của tài liệu tại đây (35.63 KB, 1 trang )
Phân tích ra thừa số nguyên tố:
program nguyento;
var i,n:integer;
BEGIN
write('n:='); readln(n);
Write(n,'=');
while n>1 do
begin
i:=2;
while (n mod i) <>0 do
inc(i);
Write(i);
n:= n div i;
if n>1 then
write('*');
end;
readln;
END.
