Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
vadar22222
02.06.2020 16:16 •
Информатика
Дано целое число n(> 0). сформировать и вывести целочисленный массив размера n, содержащий степени двойки от первой до n-й: 2,4,8,
Показать ответ
Ответ:
liza770
02.10.2020 04:48
Сделал через динамический массив и без модуля Math
var i,n:integer; a:array of real;
begin
Readln(n);
SetLength(a,n);
for i:=0 to Length(a) do
a[i]:=Exp(Ln(2)*i);
for i:=0 to Length(a) do
writeln('2^',i,' = ',a[i]);
Readln;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
notcloud228
22.07.2021 12:46
Нарисуйте рисунок с python turtle:...
vanya164
23.04.2020 13:05
Выяснено,что программисты тратят рабочее время на: постановку задач - 5%,на проектирование -10%,на кодирование - 30%,на внедрение -40%,на сопровождение-15%.Составить статистику своих...
emmadetes
26.08.2022 09:17
Заработок рабочих на фабрике составил С рублей. Его нужно разделить поровну между А рабочими. Выведите заработок каждого рабочего.(язык программирования Python)...
Ytkakiki
20.07.2021 21:30
Распишите как это решать...
LipskiyTimur
20.07.2021 21:30
A = 15 ifa 5:a = 10a = 11if a 6:a =a+ 13else:a = a- 8a = 11if a 6a =a+ 13else:a=a-8a = 16b = 14 + aprint( b= , b)a=7b=9+aprint(*a=F( ,b, ) )a=10if a 5a=a+12else:a=a-7a=-3if a 5a=5a...
FastMaks
15.08.2020 13:59
Тема — циклы. 1.Последовательно по одному вводятся N целых чисел X, найти среднее арифметическое из положительных чисел и произведение отрицательных чисел последовательности 2.Оъем...
Andreykins1
27.08.2020 08:16
Напишите программу на языке phyton, которая считывает одну строку. если это пустая строка, т. е. если пользователь сразу нажал enter, то программа выводит «да»; в противном случае...
shol09
07.04.2022 05:06
Даны два массива а и в размера 5, элементы которых по возрастанию. объединить эти массивы так, чтобы результирующий массив с(размеры 10) остался по возрастанию....
voronavv2016p08wqy
07.04.2022 05:06
Прямоугольная система координат названа в честь французского...
seregatarlykov
27.09.2021 01:00
ПОЧЕМУ НЕ РАБОТАЮТ ЭТИ ПРОГРАММЫ Дано три целых числа. Минимальное из них присвоить дополнительной переменной и вывести результат, используя: логические выражения (с and/or) var a,b,c,min:integer;...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var i,n:integer; a:array of real;
begin
Readln(n);
SetLength(a,n);
for i:=0 to Length(a) do
a[i]:=Exp(Ln(2)*i);
for i:=0 to Length(a) do
writeln('2^',i,' = ',a[i]);
Readln;
end.