Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, кратных 3, но не кратных 6. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число кратное 3, но не кратное 6. Количество чисел не превышает 1000. Введённые числа не превышают 30000. Программа должна вывести одно число - количество чисел, кратных 3, но не кратных 6. Входные данные: 3, 12, 24, 27 Выходные данные: 2
Ответы
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Конспект по информатике 7 класс по электронные таблицы
Автор: eutenkova805
20 символдан тұратын хабар 64 символдық алфавиттік әріптерімен жазылған.Ол қандай ақпарат мөлшерін көрсетеді
Автор: volkovaoksana19806037
Как взломать тест на Microsoft Form и получить ответы?
Автор: Джулия
с заданием на языке CИ (С комментарием
Автор: vikabobkova2010
Видимо у вас в условии задачи ошибка. При данных входных данных, всего 1 число кратно 3, и не кратно 6 (27). Или вы считаете 3 тоже, то увы, это не число последовательности, а её размерность. Написал программу, учитывая, что выходные данные у вас должны быть 1.
var
n,i,count:integer;
begin
readln(n);
count:=0;
for i:=1 to n do
begin
readln(n);
if (n mod 3 = 0) and (n mod 6 <> 0) then
inc(count);
end;
writeln(count);
end.