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

素数を求める (ver.3)

明解C言語 入門編 > 5. 配列 > 素数を求める (ver.3) Delphi program Project1;{$APPTYPE CONSOLE}uses SysUtils; var i, j, k, n, no: Integer; counter: Integer = 0; begin no := 2; writeln(format('%d', [no])); { 素数 } for k := 1 to 14 do begin n…