tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Составить программу, заполняющую
Составить программу, заполняющую массив из 10 элементов, числовой последовательностью. 1,4,9,
NikulinStasFrost
2 04.07.2019 16:40
5
Ответы
cotik22890
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.
ПОКАЗАТЬ ОТВЕТЫ
oraevadiana
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
meloo1
18.05.2019 05:40
Дана сторона квадрата а. найти его периметр р=4*а. а=3.30, р=13.12...
06060601
14.12.2021 21:26
Много 5)На бесконечном поле имеется стена, состоящая из 5 последовательных отрезков, расположенных змейкой: вправо, вниз, влево, вниз, вправо, все отрезки неизвестной длины. Робот...
АнатолийРубчинский
03.12.2021 12:35
Решить 4 задачи: 1ую из диапазона1-6, 2ую из диапазона 7-12, 3ью из диапазона 13-18, 4ую из диапазона 19-24 Решить на с++...
Xela936
03.12.2021 12:35
Які види фільтрування можна здійснювати для числових даних? починається з між містить дорівнює більше не дорівнює закінчується на менше...
masaa8427
03.12.2021 12:33
1.В ящике лежат черные и белые перчатки. Среди них 2 пары черных. Сообщение о том, что достали черные перчатки, несет 5 бит информации. Сколько всего пар перчаток было в ящике?...
Sezimturatbeko
03.12.2021 12:29
Задана матриця цілих чисел розміром (N;N). Знайти суму елементів в зафарбованій області. Заборонено використання додаткових масивів....
violetakoshtura
17.04.2020 18:52
Что такое ОС и какие основные функции она выполняет ...
lisa2051
25.03.2021 18:25
Скачать видео дрифт машины под глазами как купить в домашних условиях на сайте задание по видео и э3 на сайте задание по работе и на работе с вашим проектом сайтом в интернете...
Капка344
25.03.2021 18:25
Округліть до десятих: 0,86945...
alinika2007
25.03.2021 18:25
Ф Рівень IVНапишіть твір-роздум «Чому поема Генрі Лонгфелло «Пісня проГайавату» стала гімном дружби всіх народів?»...
Популярные вопросы
.проаерочное слово к слову комната...
3
Әдеби тіл дегенді Қалай түсінесің?...
2
Физикалық география нені оқытады?...
2
Укажите Что является химическим соединением аллюминийзолотосероводородсера...
2
Образ культурного человека пытался воссоздать еще в эпоху антич- ности древнегреческий...
2
(x-1)(4x-3)=0 решить это уравнение...
2
Найдите число 20% которого ровны 12...
3
А) Чему равен единичный отрезок? Какимчислом является координата точки Е?...
3
1) 32 нын 5/8 2) 63 тын 4/7 3) 48 дын 1/4...
2
Упражнение 1 a) Определи координаты точек B и C на координатной прямой.ответ: B (...
2
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.