Дано ціле число Х. Якщо воно кратне 2 та не кратне 3, то надрукувати „Так", у протилежному випадку надрукувати „Hi"

283

464

Посмотреть ответы 1

Ответы на вопрос:

nastenadanil2698

Информатика

4,4(2 оценок)

Вцелом программа рабочая, за исключением одного маленького блока, т.к. не могу прописать условие нормально: с я указала комментарии к частям кода, в том числе и к тому самому блоку. если кто знает, как его составить - отпишитесь: ) const n=5; function prime(a: integer): boolean; //функция определяет, является ли число простым var i,n: integer; begin prime: =false; if (a< 2) then exit; if (not odd(a)) and (a< > 2) then exit; for i: =3 to trunc(sqrt(a)) do begin if a mod i = 0 then exit; inc(i,2); end; prime: =true; end; var a,b,c: array[1..n] of integer; i,j,p,min,max: integer; begin for i: =1 to n do a[i]: =random(10); //заполняем массив write('исходный массив: '); for i: =1 to n do write(a[i]: 5); //выводим массив на экран writeln; min: =a[1]; max: =a[1]; //ищем минимальное и максимальное значение for i: =1 to n do if (a[i]> max) then max: =a[i]; for i: =1 to n do if (a[i]< min) then min: =a[i]; write('минимальное: ',min,' максимальное: ',max); //выводим эти значения на экран writeln; for i: =1 to n do if (prime(a[i])) or (a[i]=1) and (a[i]< > 2) then //заполняем массив с простыми числами, которые входят в массив а c[i]: =a[i]; write('простые числа в массиве а: '); for i: =1 to n do write(c[i]: 5); //выводим массив с на экран writeln; j: =min; // весь вопрос в этом небольшом блоке, заполнить массив в числами от min до max(которые уже найдены), не входящими в массив с for i: =1 to n do begin if (prime(j)) and (j< > c[i]) and (j< > 2) then b[i]: =j; inc(j); end; for i: =n-1 downto 1 do begin //сортируем по возрастанию for j: =1 to i do if (b[j]> =b[j+1]) then begin p: =b[i]; b[i]: =b[i+1]; b[i+1]: =p; end; end; write('искомый массив: '); for i: =1 to n do write(b[i]: 5); //выводим массив в на экран writeln; end.

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.