반응형 1. 1~100까지의 소수 구하기 소수 : 1또는 자기자신으로만 나누어지는 수 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) ListBox1: TListBox; ListBox2: TListBox; procedure FormCreate(Sender: TObject); procedure Sosu; private { Private declarations } public { Public declarations } end; var Form1: TForm1; Su : array [1..500] of Integer; implementa.. 2014. 2. 25. 티스토리 오픈을 축하해 2014.02.04 2014. 2. 4. 이전 1 ··· 10 11 12 13 다음 반응형
