Напишите программу, которая в последовательности целых чисел определяет количество чётных чисел, кратных 7. Программа получает на вход целые числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 -

признак окончания ввода, не входит в последовательность).

Количество чисел не превышает 1000. Введённые числа по модулю

не превышают 30 000.

Программа должна вывести одно число: количество чётных чисел, кратных 7.

Пример работы программы:

Входные данные Выходные данные

-32

14

17

0 1

Question

Информатика

Гюласма

11 июня, 21:29

Напишите программу, которая в последовательности целых чисел определяет количество чётных чисел, кратных 7. Программа получает на вход целые числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 -

признак окончания ввода, не входит в последовательность).

Количество чисел не превышает 1000. Введённые числа по модулю

не превышают 30 000.

Программа должна вывести одно число: количество чётных чисел, кратных 7.

Пример работы программы:

Входные данные Выходные данные

-32

14

17

0 1

+5

Ответы (1)

Знаете ответ на вопрос?

Гурбан · Answer 1

Uses crt; var ch, i, n, count:integer; beginn:=0; count:=0;

write (' Введите число : ') ; readln (ch) ; if ((abs (ch) <30000) and (ch div 100 0) and (ch mod 7 = 0)) then inc (count) ; while ((ch0) and (n <1001)) dobeginwrite (' Введите число : ') ; readln (ch) ; if ((abs (ch) <30000) and (ch div 100 0) and (ch mod 7 = 0)) then inc (count) ; inc (n) ; end; writeln (count) ; readln; end.