Quảng cáo
2 câu trả lời 400
var n,i: integer;
begin
read(n);
i:=2;
write('Ket qua phan tich:');
write(n,'=');
while n>1 do
begin
if n mod i = 0 then
begin
write(i,'.');
n:= n div i
end
else
i:=i+1;
end;
end.
var n,i: integer;
begin
read(n);
i:=2;
write('Ket qua phan tich:');
write(n,'=');
while n>1 do
begin
if n mod i = 0 then
begin
write(i,'.');
n:= n div i
end
else
i:=i+1;
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 VIETJACK45520
-
Hỏi từ APP VIETJACK28430
Gửi báo cáo thành công!
