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

Question

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

Answer 1

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

Comments

Эх, нужно на pascal'e

---

так разница не большая

---

цикл от 1 до 50 и смотришь каждое число ,если оно кратно 3 то добавляешь в переменю