Есть ответ 👍

Записать программу формирования и выделения n элементов паскаль n< =1000 первые n простых чисел

276
413
Посмотреть ответы 2

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

047oksana
4,7(97 оценок)

Function simple(a: integer): boolean; begin   result : = true;   for i: integer : = 2 to (a div 2) do     if (a mod i = 0) then      begin       result : = false;       break;     end; end; const   n = 10; var   i: longint : = 1;   j: longint;   a: array [1..n] of longint; begin   while (a[n] = 0) do   begin           while (a[i] = 0) do     begin       j += 1;       if (simple(j)) then       begin         a[i] : = j;       end;     end;     i += 1;   end;   for i : = 1 to n do     write(a[i], ' '); end.

вот так как-сама рисовала только чтов паинте)) 

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

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

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

Caktus Image

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

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

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

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

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

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

Подпишись на наш телеграмм канал

GTP TOP NEWS