Паскаль
напишите программу, которая в последовательности натуральных чисел определяет количество чисел, кратных 4, но не кратных 7. программа получает на вход количество чисел в последовательности, а затем сами числа.
ruslanbekka
3
22.12.2019 11:36
1
Другие вопросы по теме Информатика
погипж
06.09.2021 14:04
hychkairyna
06.09.2021 14:05
Лавданим
06.09.2021 14:06
direcrtbyrage
06.09.2021 14:06
oksa4va
12.08.2019 06:30
avfvffg
12.08.2019 06:30
verunyabogachk
12.08.2019 06:30
GOKAS
09.09.2019 11:00
Популярные вопросы
- Сочинение-рассуждение по рассказу Фотография, на которой меня нет на...
1 - 1) рассчитаем формулу соединения знаю что в состав вещества входит элемент...
1 - Дано точка M (4;-6;10) i N (2;4;-6)Знайти координати точки симетричної...
2 - Т е к с т д л я р а б о т ы1) Играя на кифаре, приблизился к трону Аида...
3 - Короткие перерывы для отдыха и выполнения физических упражнений, которые...
3 - Это подтверждается тем, что на долю одного регионаприходится% мирового...
3 - Какие условия вредны для бактерий? (желательно кратко)...
3 - 3. Тұқымқуалаушылық пен өзгергіштіктің арасында қандай айырма-шылық бар...
3 - Человек, рост которого составляет 167 см, стоит под фонарём. Его тень...
3 - Добуток чисел 160 і 40 збільш у 10 разів0 щбільш...
1
var
n,count,i:integer;
begin
count:=0;
readln(n);
for i:=1 to n do
begin
readln(n);
if (n mod 4 = 0) and (n mod 7 <> 0) then
inc(count);
end;
writeln(count);
end.