課題7
次のCプログラムをPerlに変換しなさい。
scriptコマンドを使用して、 実行した様子をファイルに保存し、提出してください。
#include <stdio.h>
int main(void) { int i, j, max, check; printf("素数です\n"); max = 100000; for(i=2; i<=max; i++) { check = 0; for(j=2; j<=i/2; j++) { if(i%j == 0) { check = -1; break; } } if(check != -1) { printf("%d ", i); } } } |