Информатика: Быстро информатика pascal abc 10класс. 4,5,6.

Айхан111111

21.12.2021 05:06

Информатика

Есть ответ 👍

Быстро информатика pascal abc 10класс. 4,5,6.

201

299

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

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

Лилия22111048483

Информатика

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

Sub aaa() rows.clear dim n as integer, k as integer, i as integer n = cint(inputbox("n=")) k = 2 * n - 1 redim y(1 to k) as integer randomize timer for i = 1 to k y(i) = int(rnd * 100 - 50) next i dim ry as range set ry = range(cells(2, 2), cells(2, k + 1)) ry = y redim x(1 to n) as integer dim rx as range set rx = range(cells(3, 2), cells(3, n + 1)) for i = 1 to n x(i) = y(2 * i - 1) ^ 2 next i rx = x cells(2, 1) = "y" cells(3, 1) = "x" set ry = range(cells(2, 1), cells(2, k + 1)) set rx = range(cells(3, 1), cells(3, n + 1)) end sub

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

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

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

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

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

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

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

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

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

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