合成数列の和アドベントカレンダー Pascal 編

合成数列の和アドベントカレンダー Advent Calendar 2018 の 2 日目です

ルール

• 入力として正の整数 N を与えたら 4 から始まる 合成数 の数列の 1 番目から N 番目からの合計を出力してください
• N は最大で 100 とします

test.p

program test(output);
var primeNumber,compositeCount,n,amax,num,sum: integer;
function IsPrime(n : integer) : boolean;
begin
	amax:=trunc(sqrt(n));
	if n mod 2=0 then
	begin 
		if n=2 then IsPrime := True
		else IsPrime := False;
	end
	else
	begin
		primeNumber:=3;
	while (n mod primeNumber<>0) and (primeNumber<=amax) do primeNumber:=primeNumber+2;
	if (n mod primeNumber=0) and (n>primeNumber) then IsPrime:=False
	else IsPrime:= True;
	end;
end;

begin
	read(n);
	num := 4;
	compositeCount := 0;
	while compositeCount < n do
	begin
		if not IsPrime(num) then
			begin
				compositeCount := compositeCount + 1;
				sum := sum + num
			end;
		num := num + 1;
	end;
	writeln(sum);
end.

#出力例

$ test //実行する
4 //Nの数を入力する
27 //結果

$ test //実行する
10 //Nの数を入力する
112 //結果

$ test //実行する
200 //Nの数を入力する
26558 //結果

メモ

この問題はずんだ問題の番外編です