• Напишите программу, которая в последовательности натуральных чисел находит количество четных чисел кратных 7.
    Вход:программа получает на вход последовательность натуральных чисел, заканчивающихся 0.
    Выход:программа должна вывести одно число-количество четных чисел кратных 7.
    входные данные
    35 70 45 9 105 0
    выходные данные
    1

Ответы 1

  • var  A: array of integer;  i, num, len, amount: integer;begin  amount := 0; len := 1; i := 0; num := -1;  write('Введите последовательность чисел -> ');  repeat    SetLength(A, len);    read(A[i]);    num := A[i];    i += 1;    len += 1; // длина массива  until (num = 0);  for i := 0 to High(A) do    if (A[i] mod 7 = 0) and (A[i] mod 2 = 0) and (A[i] <> 0) then        amount += 1;  write('Количество чётных чисел, кратных 7: ', amount, '.');end.
    • Автор:

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

Еще вопросы

Войти через Google

или

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

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

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