Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
fgydsgfgysa
06.02.2023 12:41 •
Информатика
Распечатать числа от 1 до n, которые не имеют однозначных делителей(не равных числу). цикл while
Показать ответ
Ответ:
LinkolnPark1
03.08.2020 22:33
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
0,0
(0 оценок)
Популярные вопросы: Информатика
Рудиковичный
05.04.2020 14:02
Ввести с клавиатуры два числа. определить что больше разность квадратов или модуль квадрата разности этих чисел. ответ вывести в виде сообщения. (язык c)...
fnnifnnr
20.04.2021 15:27
(извените вопрос не про школу) я играю в майнкрафт и там сделал механизм чтобы в рамке крутишь предмет, то делается действие. сделал также с командным блоком но действие происходит...
Elizabet4722
23.06.2020 14:51
1. Разложите на множители:1) c³ + 8;3) x⁶ — у⁹;2) 27a³ - b³.4) (а – 2)³ + 27....
Den0410
08.09.2021 03:54
Ключові образи Жди мене ?...
JûšțĞîřł
21.02.2020 12:59
Изучи результаты взаимодействия карбонатов с разбавленными кислотами и качественную реакцию на диоксид углерода. Запишите наблюдение и словесное уравнение протекающих реакций....
FaceLess111
10.10.2022 12:11
Найменшу проникаючу здатність мають...
Тимофей17727
18.12.2021 14:16
При якому значенні k графік функції y=kx - 3 проходить через точку B 5;12...
Aleqs2005
19.06.2020 20:18
Жақшаның ішінде берілген шылау ма қосымша ма?жақшаны ашып ережеге сай жазыңдар....
komissssarov
23.09.2021 20:42
перевести! Заранее благодарю. Je m’appelle Alexandre. J’ai trente ans. Je suis marié, j’ai deux enfants: une fille et un fils. Je vis dans un appartement en ville. Je suis ingénieur...
vlad200513
02.06.2021 23:08
русский/вопрос на фото ...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
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