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

Question

Напишите программу, которая в последовательности целых чисел определяет количество чётных чисел, кратных 7. Программа получает на вход целые числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 –
признак окончания ввода, не входит в последовательность).
Количество чисел не превышает 1000. Введённые числа по модулю
не превышают 30 000.
Программа должна вывести одно число: количество чётных чисел, кратных 7.
Пример работы программы:
Входные данные Выходные данные
-32
14
17
0 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 ((ch<>0) 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.