найти сумму четных натуральных чисел кратных 7 из интервала[23;49] безотлагательно Паскаль!!!

Отыскать сумму четных натуральных чисел кратных 7 из интервала[23;49]
безотлагательно Паскаль!!!

Задать свой вопрос
1 ответ
Var
  i, sum: integer;

begin
  sum := 0;
  for i := 23 to 49 do if (i mod 7 = 0) and (i mod 2 = 0) then sum := sum + i;
  writeln(sum);
end.
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

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

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

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

Войти на сайт