Напишите программу, которая в последовательности целых чисел определяет количество чётных чисел, кратных 7. Программа получает на вход целые числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Введённые числа по модулю не превышают 30 000. Программа должна вывести одно число: количество чётных чисел, кратных 7.
Добрый день. Меня заинтересовал ваш ответ "var a,b:integer;begin readln(a); b:=0; while a<>0 do begin if (a mod 2 =0) and ..." на вопрос http://www.liveexpert.org/topic/view/149200-olimpiada-po-informatike. Можно с вами обсудить этот ответ?