tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Решите : заполните массив
Решите : заполните массив размерностью 7 элементов степенью числа 3
haikyuu24
1 11.09.2019 20:20
0
Ответы
простонастя4
07.10.2020 08:11
Вот код просто заполняющий массив
var a, c, d, f: integer;
var b: array [1..7] of integer;
begin
f:=3;
c:=1;
a:=3;
while (c<8) do begin
d:=c;
While d <>0 do begin
a:=a*f;
d:=d-1;
end;
b[c] := a;
c:=c+1;
end;
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
ДичьМэн
23.05.2020 11:33
Дана строка, состоящая только из строчных латинских букв «a» и «b». Сколькими в ней можно оставить только одну букву «a» и стоящую правее её букву «b», удалив остальные буквы написать...
ВиталькаВиталя
23.05.2020 11:33
Дано целое число b (ввод с клавиатуры). Если оно отрицательное, то увеличить на 100, иначе не изменять его значение. Вывести результат на экран....
Anonimka04
28.04.2020 22:31
Составьте блок схему и программу для вычисления суммы S= (t+1)+2(t+2)+3(t+3)+ … +20(t+20)....
Sonechka9youtobe
19.09.2019 04:50
Рассчитайте объём памяти, необходимой для представления одноминутного фильма на экране монитора с пространственным разрешением 800 х 600 пикселей и палитрой из 65 536 цветов....
magosh2001
09.04.2020 12:50
1.Що таке табличний процесор, його властивості? 2. Типи даних які використовують для роботи с табличним процесором? 3. Як вичислити координату комірки? 4. Що таке функція в табличному...
deniskim01
04.02.2021 11:51
1. Сколько возможных перестановок может быть для четырёх элементов? for i in itertools.permutations(“sdfg”,4)): ответ: 2. Сколько и какие сочетания перестановок будут выведены на...
КсенияВиленская
07.09.2020 09:45
Complete with:at, fot, to, of, in. check in your dictionary...
GoriachiyKirill
07.09.2020 09:45
Тело, начавшее равноускоренное прямолинейное движение из состояния покоя, за первую секунду проходит путь 4 м. Найдите путь тела за вторую секунду....
KristiDever
07.09.2020 09:45
Матиндеги кездесетин стильдик ауыткуларды орынсыз колданылган соз оралымдарын редакциялап тузетип жазындар 8 сынып...
zemairen
07.09.2020 09:42
1Хабар алушы адамға берілетін білім көлемі немен айқындалады? 2. Ақпарат көлемін анықтауда ықтималдық амалы дегеніміз не?3. Білімнің белгісіздігін екі есе азайтатын хабар неге тең?4....
Популярные вопросы
Узамкнутому колі сторонні сили виконали роботу — 12 дж. яку роботу в цьому контурі...
1
Вкаком слове звуков больше чем букв, местность счастье, чужие...
1
Как обновить windows 8. смотрела видео на ютубе, скачивала программы для обновления,...
1
6х2 + х – 7 = 0 решите через b² - 4ac...
3
Кто знает какие нибудь четверостишия с глаголами?...
3
Озеро титикака находится в андах или на бразильском плоскогорье?...
3
Сделать к сегодняшнему днюпрямо сейчас умоляю вас полные ответы желательно к сегодняшнему...
2
За 13с пружинный маятник совершает 52 колебания.чему равна частота колебания этого...
2
Природные объекты, здания, сооружения, парки...
2
4.8. найдите значение выражения: 1) (b5)3 - (b2)7: (b6)* при b = -2; ...
2
var a, c, d, f: integer;
var b: array [1..7] of integer;
begin
f:=3;
c:=1;
a:=3;
while (c<8) do begin
d:=c;
While d <>0 do begin
a:=a*f;
d:=d-1;
end;
b[c] := a;
c:=c+1;
end;
end.