ditayson
Опубликовано 6 лет назад по предмету Информатика от ditayson


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

  1. Ответ
    Ответ дан Maksim2009rus
    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.
Не тот ответ, который вам нужен?
Найди нужный
Самые новые вопросы
99335871
Другие предметы - 10 месяцев назад

В какой оболочке земли живёт большинство живых организмов?

99335871
Другие предметы - 10 месяцев назад

Из каких неживых частей состоит экосистема

mandrykin
Другие предметы - 10 месяцев назад

На какие расы делятся население земли

kinda2007
Другие предметы - 10 месяцев назад

Определение статуса военнослужащего (краткий ответ!!)

Санёк1999
Другие предметы - 10 месяцев назад

Проведи следущие наблюдения в классе: один учащийся спокойно сидит за партой, слушая объяснения учителя; второй записывает план объяснения в тетради ; третий ученик вышел к доске отвечать на вопрос учителя. назови движущиеся тела. относительно каких других тел они движутся ?

Информация

Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.

Задай вопрос

Лучшие за месяц


Интересные статьи:


Пошаговый план подготовки к ЕГЭ за полгода для школьников
Не сдал ЕГЭ пересдача апелляция альтернативные пути
10 ошибок на ЕГЭ по русскому и способы их избежать
Выбор предметов ЕГЭ для поступления
Секреты подготовки к экзаменам дома от отличников