Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Ангел89178931527
16.05.2022 06:08 •
Информатика
Напишите программу которая заполняет массив квадратами натуральных чисел от 1 до n(паскаль)
Показать ответ
Ответ:
ekzz1
06.10.2020 08:36
Var
i,n: integer;
a: array of integer;
begin
readln(n);
setlength(a,n+1);
for i := 1 to n do
begin
a[i] := sqr(i);
write(a[i], ' ')
end;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
nastyaturchina
22.07.2020 15:44
. Напишите псевдокод, которая вычисляет численность молекул каждые 4, 8, 12, ... 24 часа, где молекула каждые 4 часа делится на 3 атома ...
lalove5
31.01.2021 04:48
Сравните числа, укажите знак операции отношения ( , , =) для этого необходимо сделаете проверку, т.е. вычислить десятичный эквивалент: 1546 и 1238. Переведите следующие числа из...
valia622
05.08.2022 19:30
Сравнение дробей Напишите программу, позволяющую сравнить две обыкновенные дроби. Ввод На ввод подается четыре целых положительных числа (все числа не превышают 10^4): в первой строке...
виктория1447
01.02.2023 23:33
Выражение и найдите его значение: 5 1/7(у-7)-3 6/7(14-у),при у=-0.3...
barbarask1
01.02.2023 23:33
Прочитайте слова й поєднайте їх у синомічні пари, запишіть ці пари, ставлячи першим діалектне слово: гарно, ватра, подвир я, вивірка, господиня, легінь, білка, обйстя, газдиня, переляканий,...
Steyflie
01.02.2023 23:33
В5 клеток по 2 канарейки. подарили 4 птицы. сколько канареек осталось?...
nikusakunova
01.02.2023 23:33
Периметр спортивного зала прямоугольной формы 110 м. ширина зала 25 м. найди площадь зала....
hdhdhhxhxu
01.02.2023 23:33
Первой бригаде надо было отремонтировть 180м дороги,а второй -160м.первая бригада отремонтировала ежедневно 40 м дороги,а -вторая 25 м.через сколько дней первой бригаде останется...
ELNARAMAMEDOVA
01.02.2023 23:33
Составить предложение из слов болото, мороз, октябрь, ноябрь...
nastya368421678
01.02.2023 23:33
М- множество бабочек, к- множество цветков на рисунке. есть ли у них общие элементы? построй диаграммы множеств м и к. как они расположены?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
i,n: integer;
a: array of integer;
begin
readln(n);
setlength(a,n+1);
for i := 1 to n do
begin
a[i] := sqr(i);
write(a[i], ' ')
end;
end.