GabriellaНапишите программу, которая в последовательности натуральных чисел определяет количество чисел, кратных 4, но не кратных 7. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 4 и не кратное 7. Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число: количество чисел, кратных 4, но не кратных 7. Пример работы программы:Входные данные Выходные данные4162826242
ответы: 1
Зарегистрируйтесь, чтобы добавить ответ
Ответ:
var n,i,a,k: integer;
begin
readln(n);
k := 0;
for i := 1 to n do
begin
readln(a);
if (a mod 4 = 0) and (a mod 7 <> 0) then k:=k+1;
end;
writeln(k)
end;
66
GavrilaЧтобы ответить необходимо зарегистрироваться.
