Help информатика pascalabc.net уровень a. а) заполните все элементы массива значением x , введённым с клавиатуры. б) заполните массив первыми n натуральными числами, начиная с x (значение x введите с клавиатуры). уровень b. а) заполните массив натуральными числами в обратном порядке, начиная со значения x, введённого с клавиатуры. последний элемент должен быть равен x, предпоследний – x–1 и т.д. б) заполните массив степенями числа 2 (от 21 до 2n), так чтобы элемент с индексом i был равен 2i.
yourdream1806
3
20.09.2019 01:50
0
Другие вопросы по теме Информатика
montishok
08.04.2020 21:59
slavik528
08.04.2020 21:59
6Evgeny11111
08.04.2020 21:59
kgrintsewi4
08.04.2020 21:58
Ididhhxj
22.05.2019 09:30
Анастасия0411
06.07.2019 23:00
uciviyciy
06.07.2019 23:00
Ученая13
06.07.2019 23:00
mariesoe
06.05.2020 14:54
wella5555
25.05.2019 07:20
Популярные вопросы
- По зарубежной литературе задали написать характеристику Тараса Бульбы,...
3 - Побудувати в g-moll секунди, кварти...
3 - до іть потрібно твір опис зовнішності людини а саме картини Андрія Коцка...
1 - 5. Учитывая правила выполнения операций уберите лишние скобки и знаки...
1 - Одна бригада робітників за годину розвантажує 3 т вантажу а інша на...
3 - Почему на вершинам гор лежит снег?...
3 - Что общего и различающегося в описании осеннего леса у И.С. Соколова-Микитова...
2 - 76. Пираты - разбойники выбирают себе флаг. Согласно пиратским законам,...
2 - Надо перевести в время слова listen move plan look wait...
3 - Sos, help me Ex. in Armenian...
2
//Версия 3.3, сборка 1634 (14.02.2018)
// А,a
begin
ArrFill(ReadInteger('n='),ReadInteger('x=')).Println;
end.
// А,б
begin
var x:=ReadInteger('x=');
var a:=ArrGen(ReadInteger('n='),i->x+i); a.Println;
end.
// B,a
begin
var (x,n):=ReadInteger2('x,n=');
var a:=ArrGen(n,i->x-(n-1-i)); a.Println;
end.
// B,б
begin
ArrGen(ReadInteger('n='),i->2**(i+1)).Println;
end.