Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
Мокааа585
27.01.2022 09:43 •
Информатика
Составить программу, заполняющую массив из 10 элементов, числовой последовательностью. 1,4,9,
Показать ответ
Ответ:
ValeriaChernysheva
02.10.2020 20:10
Var A:array[1..10]of integer;
i:integer;
Begin
For i:= 1 to 10 do
Begin
A[i]:=i*i;
Write(A[i],' ')
End
End.
0,0
(0 оценок)
Ответ:
balasanyansilva
02.10.2020 20:10
Program al;
Var a: Array [1..10] of Integer;
i: Integer;
Begin
For i := 1 To 10 Do
a[i] :=sqr(i);
For i := 1 To 10 Do
Write(a[i], ' ');
ReadLn;
End.
0,0
(0 оценок)
Популярные вопросы: Информатика
rbaimova
12.11.2020 10:48
Запишіть оператор присвоєння цілочисельній змінній А значення звластивості Text текстового поля Edit1...
KOTOMAKS06
25.11.2020 20:45
, решить , нужно до завтра...
мандаринылюблю
07.06.2022 14:26
1) таня получила записку в которой содержалось 70 символов. записка была написана при 32-х символьного алфавита. какой объем информации содержится в записке. 2) информационное...
XefforyGR
07.05.2021 14:34
Некоторый алгоритм из одной цепочки символов получает новую цепочку следующим образом. сначала вычисляется длина исходной цепочки символов; если она чётна, то в начало...
ervinbek2005
15.11.2022 08:12
Замени триаду из двоичных цифр 000 соответствующей восьмеричной цифрой.с объяснением...
Magic0825
15.11.2022 08:12
В8-ми разрядной ячейке памяти в формате со знаком получите внутреннее представление числа а) 109 б) -109 и объясните как это делается...
Rayanna1
14.05.2020 06:20
Дано аiiв с- секущая. найти угол 1 - угол 2 = 30 градусов и угол 1 : угол 2 = 4: 5...
armagedon641
14.05.2020 06:20
Представьте что вы ученый попробуйте сформулировать закон взаимодействия человека с окружающим его миром воспользуйтесь материалами текст у слова всё друг с другом связано...
shevchal
14.05.2020 06:20
Чему научила и чем понравилась книга оставь окно открытым...
erkr
14.05.2020 06:20
Где и при каких обстоятельствах погибли люди при панике?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
i:integer;
Begin
For i:= 1 to 10 do
Begin
A[i]:=i*i;
Write(A[i],' ')
End
End.
Var a: Array [1..10] of Integer;
i: Integer;
Begin
For i := 1 To 10 Do
a[i] :=sqr(i);
For i := 1 To 10 Do
Write(a[i], ' ');
ReadLn;
End.