ab.com コミュニティ

コード: 全て選択

#include <stdio.h>
#include <stdlib.h>

int main(int argc,char *argv[]) {
	double max;
	double tyousa;
	double sirabe;
	int flg;
	double total;/*totalに和が代入される*/
	total=0;
	max=atof(argv[1]);
	for(tyousa=2;tyousa<=max;tyousa++) {
		flg=1;
		for(sirabe=2;sirabe<=tyousa/2;sirabe++) {
			if((int)tyousa%(int)sirabe==0) {
				flg=0;
				break;
			}
		}
		if(flg==1)total+=tyousa;
	}
	printf("2から%1.0fまでの素数の和は%1.0fです。",max,total);
	return 0;
}

コード: 全て選択

#console

'計測用
Declare Function timeGetTime Lib "winmm.dll" () As DWord
Declare Function timeBeginPeriod Lib "winmm.dll" (uPeriod As DWord) As Long
Declare Function timeEndPeriod Lib "winmm.dll" (uPeriod As DWord) As Long
Dim sTime As Long,eTime As Long

Dim CommandLine As *Byte'コマンドライン文字列へのポインタ
Dim start As Long'コマンドライン文字列の内、先頭を0とみなした場合の第一引数の開始位置
Dim i=0 As Long'ループ用

timeBeginPeriod(1)
sTime=timeGetTime()

'第一引数の開始位置を特定
CommandLine=GetCommandLine()
If CommandLine[0]=34 then
	i=1
	Do
		If CommandLine>=128 then'SHIFT-JIS文字対策
			i++
		ElseIf CommandLine=34 Or CommandLine=0 then
			Exit Do
		End If
		i++
	Loop
End If
If CommandLine=0 then
	Print "引数が明らかに足りていない"
	ExitProcess(3)
End If
Do
	i++
	If CommandLine>=128 then'SHIFT-JIS文字対策
		i++
	ElseIf CommandLine=32 Or CommandLine=0 then
		Exit Do
	End If
Loop
If CommandLine=0 then
	Print "引数が明らかに足りていない"
	ExitProcess(3)
End If
start=i+1

'必要な量コピー
Dim buf[15] As Byte
memcpy(buf,CommandLine+start,min(15,lstrlen(CommandLine+start)))
buf[15]=0
'引数の内容を調整
For i=0 To 14
	If buf=32 then'区切り字句に来たら
		buf=0'終端文字に上書き
		Exit For
	End If
Next

Dim n As Long'調べる最大の値
n=Fix(Val(buf))
If n<=0 then
	Print "第一引数の値が自然数ではない"
	ExitProcess(1)
ElseIf n>10000 then
	Print "第一引数の値が10000を超えている"
	ExitProcess(2)
End If

Dim sum As Long'合計値
Dim j As Long,k As Long
For i=2 To n
	k=Fix(Sqr(i))
	For j=2 To k
		If i mod j=0 then Exit For
	Next
	If j=k+1 then sum+=i
Next

Print sum
eTime=timeGetTime()
timeEndPeriod(1)
Print eTime-sTime
ExitProcess(0)

Function min(val1 As Long,val2 As Long)
	If val1>val2 then
		min=val2
	Else
		min=val1
	End If
End Function

コード: 全て選択

Dim I As Long, N As Long, A As Long
Dim Check As Integer
Dim Num As Long   '指定された自然数が入る変数

Input "n=";Num

For I = 2 To Num
	Check = 0
	'Iが素数か調べる
	For N = I - 1 To 2 Step -1
		Print I ; " ";
		Print N ; I Mod N
		If I Mod N = 0 And Not I = N Then
			'割り切れた
			Check = -1
			N = 1
		End If
	Next N
	If Check = 0 Then
		A = A + I
	End If
Next I

Print A	'答え表示

コード: 全て選択

long I, N, A;
int Check;
long Num;   /* 指定された自然数が入る変数 */

printf("n=");
scanf("%d", &Num);

for(I = 2, I <= Num, I++){
	Check = 0;
	/* Iが素数か調べる */
	for(N = I - 1,  I >= 2, N--){
		if (I % N == 0 && I != N){
			/* 割り切れた */
			Check = -1;
			N = 1;
		}
	}
	if (Check == 0){
		A += I;
	}
}

printf("%d", A);	/* 答え表示 */