Лучшие помощники
- Megamozg 2205 б
- Matalya1 1800 б
- DevAdmin 1720 б
- arkasha_bortnikov 900 б
- Dwayne_Johnson 865 б
14 января 2023 21:41
707
Заполните массив степенями числа 2 ( от 2 в 1 степени до 2 в энной степени)
Паскаль ABCnet
1
ответ
Var a:array [1..30] of integer;
i,x,n:integer;
begin
x:=1;
write('Введите степень 2 (n<=30): ');
readln (n);
for i:= 1 to n do
begin
a[i]:= x*2;
write(a[i],' ');
x:=x*2
end
end.
i,x,n:integer;
begin
x:=1;
write('Введите степень 2 (n<=30): ');
readln (n);
for i:= 1 to n do
begin
a[i]:= x*2;
write(a[i],' ');
x:=x*2
end
end.
0
·
Хороший ответ
16 января 2023 21:41
Остались вопросы?
Еще вопросы по категории Информатика
1) За единицу измерения количества информации принят… 1. 1 бод 2. 1 бит 3. 1 байт 4. 1 Кбайт...
Решите кроссворд.Какое слово получилось по вертикали?1)Кодовый набор чисел для защиты информации. 2)"Мозг" компьютера.3)Обеспечивает доступ в Интернет...
Нормализуйте мантиссу в числах: а) 0,0041* 102; б) -16,78* 10-3....
Напишите программу, которая получает из входных данных строку, состоящую не менее чем из трёх слов,. Программа должна перестапвить местами второе и тр...
Как заархивировать файл(ы)? как извлечь файл (ы) из архива? ...