高校问答csgo所有ak皮肤:pascal难题
来源：百度文库 编辑：高校问答 时间：2024/05/08 17:08:57
我想用pascal编程解决如下问题：
求2～100中每个数的质因子，输出如下形式：
2＝2
3＝3
4＝2*2
...
100=2*2*5*5
希望高手赐教,提供该问题的分析或源程序
求2～100中每个数的质因子，输出如下形式：
2＝2
3＝3
4＝2*2
...
100=2*2*5*5
希望高手赐教,提供该问题的分析或源程序
我用delphi控制台给你做了一个这样的程序，语法一样的
你把它写到pascal里试试
uses SysUtils;
var
i, j: integer;
Num: integer;
begin
for j := 2 to 100 do
begin
Num := j;
Write(IntToStr(Num) + '=');
i := 2;
while i < Num / 2 do
begin
if Num mod i = 0 then
begin
Write(IntToStr(i) + 'x');
Num := Trunc(Num / i);
end
else
begin
Inc(i);
end;
end;
Writeln(IntToStr(Num));
end;
end.