Из первых 50 натуральных чисел выбрать числа кратные трем и найти их сумму pascal

for (int i = 1;i<51;i = i+1) {       if ( i%3==0 )                 //   % - это mod           sum = sum + i; } это на си