Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
njjjjjjtgl
09.05.2023 06:41 •
Информатика
Составить программу, заполняющую массив из 10 элементов, числовой последовательностью. 1,4,9,
Показать ответ
Ответ:
arsenboosss757
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 оценок)
Ответ:
lisaBeTa
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 оценок)
Популярные вопросы: Информатика
круто45
31.05.2020 20:42
Дана блок-схема программы. А) Запишите фрагмент программного кода, используя данную блок-схему. Подпись отсутствует Задание 4. Дана блок-схема программы. В) Какое принимает...
dashaevа07
11.10.2021 18:54
Определите синтаксическую ошибку кода программы k = float (input (input K = ))x= flot(input( ehrizy x= ))from math import*2=cx+5/x++2-20print( z= до 20:00 сейчас 19:06...
Slidopit
27.09.2020 17:26
Опишите, что будет выведено на веб-странице в результате выполнения следующего кода? img src= /images/poster.jpg video autoplay= true controlssrc= /video/garry.avi /video...
mariyaskobenko1
10.09.2022 04:26
Написать решение . 1) дана непустая строка.вывести коды её первого и последнего символа. 2)дано целое число n ( 0) и символ c.вывести строку длины n,которая состоит из...
Монокль
10.09.2022 04:26
Проверьте, является ли произведение четырех производных чисел, введенных с клавиатуры , четным числом . надо составить блок схему!...
Mashannjjj
12.12.2021 10:56
Напишите программу формирования и вывода массива произвольного размера так, чтобы каждый последующий элемент, начиная с третьего, был равен сумме двух предыдущих элементов....
Slysly
21.09.2020 03:06
Что-то не получается совсем...
Анна200361
17.11.2020 06:26
Язык Pascal. Напишите программу, которая позволяет вводить с клавиатуры два целых числа и выводит на экран сумму чисел, разность между числами, квадрат разности между числами....
Mohim
07.02.2020 07:55
Точка A задана координатами x,y. Определить принадлежит ли точка заштрихованной области.Протестировать алгоритм для точек (2.5,2), (1,1), (0,0) (1,0),(2,-1)...
konon707
25.06.2021 09:00
Записать пример цикла с заданным условием окончания работы на алгоритмическом языке и блок-схемой....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.