Написать программу, которая выводит на экран все простые числа из диапазона 1..100. тут необходимо использовать цикл внутри цикла. внешний цикл проходится по всем числа от 0 до 100. внутренний проверяется является ли число простым. рекомендую сначала реализовать алгоритм проверки на простое число ispolzuya do while na yazike c++
124
291
Ответы на вопрос:
1const n=10; var a: array[1..n] of integer; i,k,t,imin,imax: integer; begin randomize; { инициализация датчика пчевдослучайных чисел } writeln('*** исходный массив ***'); for i: =1 to n do begin a[i]: =random(20); { интервал [0; 19] } write(a[i]: 4) end; writeln; { 1. меняем местами правую и левую половины } writeln('*** 1 ***'); k: =n div 2; for i: =1 to k do begin t: =a[i]; a[i]: =a[i+k]; a[i+k]: =t end; for i: =1 to n do write(a[i]: 4); writeln; { 2. элементы массива, большие 10, заменяем на 100 } for i: =1 to k do if a[i]> 10 then a[i]: =100; writeln('*** 2 ***'); for i: =1 to n do write(a[i]: 4); writeln; { 3. удаляем максимальный элемент, вставляем 0 перед минимальным } { ! } writeln('*** исходный массив ***'); for i: =1 to n do begin a[i]: =random(50)+1; { интервал [1; 49] } write(a[i]: 4) end; writeln; writeln('*** 3 ***'); imin: =1; imax: =1; for i: =2 to n do if a[i]> a[imax] then imax: =i else if a[i]< a[imin] then imin: =i; if imin < imax then begin { минимальный встречается раньше максимального } { подвигаем вправо на 1 все элементы от imin и до imax } for i: =imax-1 downto imin do a[i+1]: =a[i]; a[imin]: =0 { вставляем 0 в позицию imin } end else begin { минимальный встречается позже максимального } { подвигаем влево на 1 элементы от imax до imin -1 } for i: =imax to imin-1 do a[i]: =a[i+1]; a[imin-1]: =0; { вставляем 0 в позицию перед imin } end; for i: =1 to n do write(a[i]: 4); writeln end. пример *** исходный массив *** 14 1 11 7 14 8 12 8 1 14 *** 1 *** 8 12 8 1 14 14 1 11 7 14 *** 2 *** 8 100 8 1 100 14 1 11 7 14 *** исходный массив *** 24 36 25 4 42 42 16 39 45 44 *** 3 *** 24 36 25 0 4 42 42 16 39 44 2 const n=10; var a: array[1..n] of integer; i: integer; begin randomize; { инициализация датчика пчевдослучайных чисел } writeln('*** исходный массив ***'); for i: =1 to n do begin a[i]: =random(20); { интервал [0; 19] } write(a[i]: 4) end; writeln; { 1. выводим нечетные элементы } writeln('*** 1 ***'); for i: =1 to n do if a[i] mod 2 < > 0 then write(a[i]: 4); writeln; { 2. элементы на четных позициях обнуляем } i: =2; while i< =n do begin a[i]: =0; i: =i+2 end; writeln('*** 2 ***'); for i: =1 to n do write(a[i]: 4); writeln end. пример *** исходный массив *** 12 0 14 8 13 17 3 1 12 17 *** 1 *** 13 17 3 1 17 *** 2 *** 12 0 14 0 13 0 3 0 12 0 замечание: третью решить в такой постановке невозможно. в самом деле, требуется удалить последний нечетный элемент, а перед третьим элементом вставить ноль. что делать, если этим последним нечетным окажется третий?
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
kirilzz62307.11.2021 21:15
-
vladdancer11.03.2021 17:30
-
angelvkedah928.10.2021 12:39
-
ilyator22.01.2023 11:53
-
blackytwhite20.05.2022 00:22
-
2002dima1419.01.2022 00:13
-
kymbat201615.12.2021 09:43
-
Frolinng16.06.2023 14:06
-
mika181minecrafMilka14.09.2020 01:39
-
chunya2004113.05.2023 15:19
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.