Question

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

Answer 1

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

Answer 2

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

Answer 3

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

Answer 4

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