Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
alinkamalinka499
06.05.2023 23:52 •
Информатика
Сформировать массив b b1: =sin1 ,b2: =cos2,b3: =sin3,b4: =cos4 n=10
Показать ответ
Ответ:
danayamirnaya
27.08.2020 06:28
Const
n = 10;
var
b: array [1..n] of real;
i: byte;
begin
for i := 1 to n do
begin
b[i] := cos(i);
writeln('b[',i,'] = ', b[i]);
end;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
evgehamorozov
02.10.2021 05:13
Исполнитель робот умеет перемещаться по лабиринту, начерченному на плоскости, разбитой на клетки. между соседними (по сторонам) клетками может стоять стена,...
killpvpglava
02.06.2021 02:18
Анаграммы выбрать лишние слова ,терн при,нкокило,пдлейис...
lidiyaerox28
02.06.2021 02:18
Даны 3 целых числа a, b, c. определите максимальное число....
086Alex
15.11.2021 00:38
Написать программу, которая по введенному значению аргумента вычисляет значение функции, заданной в виде графика. параметр r вводится с клавиатуры. язык c#...
mdior10
17.01.2022 07:11
Пакажыце Старажытную Грэцыю на карце і апішыце словамі яе месцазнаходжанне...
ressopli345
17.01.2022 07:11
Когда возникла первая цивилизация на территории материковой Греции? Как она называлась и кто был ее создателем?...
lol1039
17.01.2022 07:11
Где и когда в Греции возникли первые государства? Как такие государства назвали ученые?...
pughluy
17.01.2022 07:11
Подумайте, на чем основано утверждение о том, что древние греки были умелыми мореплавателями...
хахаха41
17.01.2022 07:11
Якім заняткам адпавядала геаграфічнае становішча Грэцыі...
8ВероникаКонорюкова8
17.01.2022 07:11
Определите особенности природных условий Греции (не менее трех). Сделайте соответствующий вывод, учитывая свои знания о природе Древнего Египта и Месопотамии...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
n = 10;
var
b: array [1..n] of real;
i: byte;
begin
for i := 1 to n do
begin
b[i] := cos(i);
writeln('b[',i,'] = ', b[i]);
end;
end.