ミ,,ﾟДﾟ彡フサギコのﾌｻﾌｻDelphi談話室⑦
■ このスレッドは過去ログ倉庫に格納されています
0809厨房
NGNGi, y: Int64;
begin
i := MaxInt;
while i > 3 do
begin
y := 2;
while y < i do
begin
if i mod y = 0 then
break
else
begin
Inc(y);
if y = i then
Memo1.Lines.Add(IntToStr(i));
end;
end;
Dec(i);
end;
end;
おいらにゃこんなのしか思いつきませんと、
■ このスレッドは過去ログ倉庫に格納されています