• Написать переменную для определения количества чисел кратных 3 и оканчивающихся на 6. (Pascal)

Ответы 1

  • Program Test;const size = 5;Var num, counter, i: integer, mas: array[1..size] of integer;Beginfor i := 1 to size dobeginWrite('Введите ', i, ' число');Readln(mas[i]);end;for i := 1 to size dobeginif (mas[i] mod 3 = 0) and (mas[i] mod 10 = 6) thencounter := counter + 1;end;Writeln();Writeln('Ответ: ', counter);End.
    answer img
    • Автор:

      simbawkko
    • 6 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years