• ПОМОГИТЕ ПОЖАЛУЙСТА НАПИСАТЬ ПРОГРАММУ
    Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, кратных 3. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 3. Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число – количество чисел, кратных 3.

Ответы 5

  • Введите количество чисел в последовательности3Введите числа12-1210Количество чисел четных 3 = 2
    • Автор:

      sadiegkkg
    • 6 лет назад
    • 0
  • такой же ответ должен получиться?
  • Да, все верно. В этой последовательности всего лишь 2 числа кратных трем это -12 и 12
    • Автор:

      rhett3eej
    • 6 лет назад
    • 0
  • спасибо огромное)
    • Автор:

      maximus24
    • 6 лет назад
    • 0
  • var x,n,k:integer; begin k:=0; writeln('Введите количество чисел в последовательности'); readln(n); writeln('Введите числа'); while n>0 do begin readln(x); if x mod 3=0 then k:=k+1; n:=n-1; end; writeln('Количество чисел четных 3 = ',k); end.
    • Автор:

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

Еще вопросы

Войти через Google

или

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

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

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