Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
oksana1382
01.11.2021 01:04 •
Информатика
Составьте программу заполнения одномерного массива a(n) пятью первыми членами последовательности{an} с общим членом an=(n+1)^2
Показать ответ
Ответ:
Полина260106
03.10.2020 11:03
Const n = 5;
var a:array[1..n] of integer;
i:integer;
begin
for i:=1 to n do begin
a[i]:=sqr(i+1); writeln(a[i]);
end;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Yablochkho
03.02.2020 17:39
Какие из этих устройств не компьютеру передавать информацию по сети Сетевая плата Модем Монитор USB-накопитель Роутер...
lehfrb
03.05.2023 18:22
Васе дан фрагмент электронной таблицы. Какое целое число должно быть записано в ячейке C1, чтобы построенная после выполнения вычислений диаграмма по значениям диапазона ячеек...
Ren484
18.02.2021 14:45
)! зарание информатика 8 класс. нужно написать программу для робота кумир ....
fFlower337
11.09.2022 20:25
40 . хотя бы 2 решите ....
рустам222
21.07.2022 21:23
Ятупой определить корни данного уравнения с точностью до 5 знака после запятой. 4(cosx)^2-x2-x+1=0...
homeLoL
27.01.2022 20:02
Выполнить это , как это делать на калькуляторе на пк....
alinatitova228
14.03.2022 01:01
С! на языке free pascal ide или abc pascal площадь. по данным натуральным числам a,b,m,k найти (с округлением с избытком до целого числа) площадь пересечения полуплоскоси (a*x+b*y...
9989744524081
04.08.2020 05:45
40 ! ! сделать алгоритм на паскале. задать любое число n и вычислить сколько нечетных чисел между 0 и n. алгоритм сделать через while....
D1999d3004
05.07.2022 06:53
Решить! если можно с объяснением...
magosh2001
17.10.2020 19:07
Фальшивомонетчики.лиса делает монеты легче а кот тяжелее.у буратино 3 монеты и одна из них фальшивая.как за 2 взвешивания узнать какая фальшивая.условия: если 1 больше 2 и 1 больше...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var a:array[1..n] of integer;
i:integer;
begin
for i:=1 to n do begin
a[i]:=sqr(i+1); writeln(a[i]);
end;
end.