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

素数を求める (ver.4)

明解C言語 入門編 > 5. 配列 > 素数を求める (ver.4) Delphi program Project1;{$APPTYPE CONSOLE}uses SysUtils; var i, j, no: Integer; prime: array[0..14] of Integer; ptr: Integer = 0; counter: Integer = 0; begin prime[ptr] := 2; inc(ptr); pri…