Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
nastagaeva0672
12.01.2023 16:29 •
Информатика
Без использования клавиатуры заполнить массив следующей числовой последовательностью(количество элемента массива вводится с клавиатуры): 1 4 9 16 25?
Ответ:
Максим56065
05.10.2020 06:40
// PascalABC.NET 3.2, сборка 1379 от 21.01.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrGen(ReadInteger('n='),i->i*i,1); a.Println;
end.
Пример
n= 10
1 4 9 16 25 36 49 64 81 100
0,0
(0 оценок)
Популярные вопросы: Информатика
Raf4ik15
30.04.2023 10:42
Ребят надо составить программу:( под номером 6....
Katyyyp
08.08.2021 13:33
1. Инструмент для разбрызгивания краски (находится в категории «Кисти»)Приложение paint...
zarrrubinka
28.02.2020 13:39
решить, вообще не понимаю...
alina2007121034
12.07.2021 15:45
5 ГБ- ты КБ-қа айналдыру керек жауабы:...
тимур615
10.08.2021 21:29
Uses crt,graph; const k=6; var n,x,y: integer; procedure snow (x0,y0,r,n: integer); const t=2*pi/k; var i,x,y: integer; begin for i: =1 to k do begin x: =x0+round(r*cos(i*t)); y:...
Masha45322
14.07.2020 10:27
Исполнитель мульт работает с двумя , которым присвоены номера: 1. возвести в квадрат, 2. прибавить один. выполняя первую из них, мульт возводит число на экране в квадрат, выполняя...
ooficerova
14.07.2020 10:27
Какое количество информации несет в себе сообщение о том, что нужная вам программа находится в одной из 16 книг...
2007arttt
17.05.2023 12:48
Дано натуральное число п. вычислить: 1*2 + 2*3*4 + … + n*(n + 1) *…*2n...
Ilona004
17.05.2023 12:48
За ранее большое 1)запишите в двоичном и шестнадцатеричном коде букву а. 2)запишите в двоичном и шестнадцатеричном коде в альтернативной кодировке букву а 3)запишите в двоичном и...
H1biki
17.05.2023 12:48
Где можно ознакомиться с функциями и возможностями программы? a) на панели в) в строке меню с) в строке заголовка d) на рабочем поле...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrGen(ReadInteger('n='),i->i*i,1); a.Println;
end.
Пример
n= 10
1 4 9 16 25 36 49 64 81 100