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

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

Задать свой вопрос
1 ответ
For (int i = 1;ilt;51;i = i+1)

      if ( i%3==0 )                 //   % - это mod
          sum = sum + i;

это на си 
Василиса
Эх, нужно на pascal'e
Анна Бовина
так разница не большая
Путилова Эвелина
цикл от 1 до 50 и глядишь каждое число ,если оно кратно 3 то добавляешь в переменю
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт