Вопрос по информатике:
Даны первые n натуральных чисел вывести количество всех чисел которые кратны 3,но не делятся на 6
Пожаловаться
- 25.08.2017 18:50
- Информатика
- remove_red_eye 16684
- thumb_up 35
Ответы и объяснения 1
Var n,k,i:integer;
begin
write('n = ');
readln(n);
k:=0;
for i:=1 to n do
if (i mod 3=0)and(i mod 60)
then k:=k+1;
writeln('k = ',k);
end.
Пример:
n = 100
k = 17
begin
write('n = ');
readln(n);
k:=0;
for i:=1 to n do
if (i mod 3=0)and(i mod 60)
then k:=k+1;
writeln('k = ',k);
end.
Пример:
n = 100
k = 17
Пожаловаться
- 26.08.2017 10:55
- thumb_up 6
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы