Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
danyadope8
08.04.2021 08:30 •
Информатика
:написать программу, которая заполняет массив числами, которые в 5 раз больше чем предыдущее число
Показать ответ
Ответ:
mashanlo2006
08.09.2020 12:31
const n=5;
var a:array [1..n] of integer;
i: integer;
begin
writeln ('Введите a[1]');
read (a[1]);
for i:=2 to n do a[i]:=a[i-1]*5;
for i:=1 to n do write(a[i],' ')
end.
Если ввести a[1]=1, то программа выводит: 1 5 25 125 625
0,0
(0 оценок)
Популярные вопросы: Информатика
Зачемжежить
27.04.2022 22:35
Исполнитель чертёжник перемещается на координатной плоскости, оставляя след в виде линии. чертёжник может выполнять команду сместиться на (a, b) (где a, b – целые числа),...
дарья1627
24.09.2021 18:09
Массив А[1..10] , где каждый элемент массива находится по формуле A[i]=Sin(2i)/ 2. Найти максимальный элемент массива....
face29
28.07.2021 20:33
Крупнейшие реки. нужно сделать диаграмму, по этой таблице, не простую, но диаграмму. буду за работу....
Fox125123
14.12.2021 03:07
один человек имел 100 монет.он поровну разделил их между двумя своими детьми. каждому досталось по 11 монет и одна осталось лишней. какая система счисления использовалась,...
VasilisaBelkina
11.09.2022 19:49
бл ребят Дано описание операционной системы Windows. Определи, в какой операционной системе это появилось, выбрав верные ответы из списка. Благодаря улучшенной поддержке...
KarinaCorso
19.06.2021 01:16
Определите, какое значение приобретет переменная b после выполнения условного оператора if, если а = 13. if а% 10 3: b = a * 2 elif а% 10 = 5: b = a + 10 elif а% 10 = 7:...
KitBanin
21.07.2021 06:09
Информатика, короткий вопрос!...
GrinnySmith
27.09.2021 17:15
Напишите инструкцию цикла, которая после выполнения напечатает 11 слов Сапсан ....
irinaira72rt
08.04.2020 18:11
1. Укажите операторы, используемые для ввода данных в Паскале. Да/нет read writeln readln write begin var 2. Расположите строки так, чтобы получилась программа Symma, рассчитывающая...
этояученик
09.05.2023 07:20
очень нужно Надо написать что то похожее на это ( не очень много >...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var a:array [1..n] of integer;
i: integer;
begin
writeln ('Введите a[1]');
read (a[1]);
for i:=2 to n do a[i]:=a[i-1]*5;
for i:=1 to n do write(a[i],' ')
end.
Если ввести a[1]=1, то программа выводит: 1 5 25 125 625