Вопрос по информатике:
Распечатать числа от 1 до N, которые не имеют однозначных делителей(не равных числу).
Цикл while
Пожаловаться
- 20.06.2017 01:25
- Информатика
- remove_red_eye 5369
- thumb_up 35
Ответы и объяснения 1
Var n,k,m,i,j:integer;
begin
readln(n);
for i:=1 to n do
begin
k:=0;
if i<=9 then m:=i-1 else m:=9;
for j:=2 to m do
if i mod j = 0 then k:=k+1;
if k=0 then write(i,' ');
end;
end.
Пример:
150
1 2 3 5 7 11 13 17 19 23 29 31 37 41 43 47 53 59 61 67 71 73 79 83 89 97 101 103 107 109 113 121 127 131 137 139 143 149
begin
readln(n);
for i:=1 to n do
begin
k:=0;
if i<=9 then m:=i-1 else m:=9;
for j:=2 to m do
if i mod j = 0 then k:=k+1;
if k=0 then write(i,' ');
end;
end.
Пример:
150
1 2 3 5 7 11 13 17 19 23 29 31 37 41 43 47 53 59 61 67 71 73 79 83 89 97 101 103 107 109 113 121 127 131 137 139 143 149
Пожаловаться
- 21.06.2017 09:17
- thumb_up 24
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы