1998-10-09から1日間の記事一覧

素数を求める (ver.1)

明解C言語 入門編 > 5. 配列 > 素数を求める (ver.1) Delphi program Project1;{$APPTYPE CONSOLE}uses SysUtils; var i, j, no: Integer; counter: Integer = 0; begin for no := 2 to 30 do begin j := 0; for i := 2 to no - 1 do begin inc(counter); i…