Лучшие помощники
- Megamozg 2205 б
- Matalya1 1800 б
- DevAdmin 1720 б
- arkasha_bortnikov 900 б
- Dwayne_Johnson 870 б
14 января 2023 21:41
755
Заполните массив степенями числа 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
Остались вопросы?
Еще вопросы по категории Информатика
Ниже приведена программа, записанная на пяти языках программирования. Бейсик Python DIM s, t AS INTEGER INPUT s INPUT t IF s < 5 OR t > 5 TH...
Что нужно знать для определения информационного веса символа алфавита некоторого естественного или формального языка? 8 класс. Заранее спасибо...
В одной из кодировок Unicode каждый символ кодируется 16 битами. Определите размер следующего предложения в данной кодировке...
Чему равно значение переменной s после выполнения следующего фрагмента программы: s:=0; for i:=0 to 5 do s:=s+1; 15 6 5 0...
1) 20 Кбайт=....байт 2) 12 бит=...байт 3) 64 Кбайт=...Мбайт 4) 9 байт=....бита 5) 64 бита=...байт 6) 10 Кбайт=...байт 7) 128 Кбайт=...Мбайт 8) 10 байт...