Заполнить массив из 20 элементов по образцу (1,2,4,8,16,32, 64,…)
5-9 класс
|
var a:array[1..20] of integer;
i:integer;
begin
a[1]:=1;
for i:=2 to 20 do
a[i]:=a[i-1]*2;
for i:=1 to 20 do
write(a[i],' ');
end.
Это на паскале или что?
Другие вопросы из категории
4) Перевести из восьмеричной в десятичную систему счисления число 812; из двоичной в
десятичную число 11100.
5) Провести операцию сложения двоичных чисел:
a. 101 и 111
b. 100 и 001
c. 110 и 111
6) Провести операцию умножения двоичных чисел:
a. 111 и 011
b. 100 и 101
c. 110 и 100
7) Какое число стоит в десятичной системе счисления между:
a. 5116 и 1178
b. 11100002 и 7216
только для указания окончания ввода и в остальных расчётах не участвует. Подсчитать
среднее арифметическое тех отрицательных чисел, которые оканчиваются на цифру «5».
Учесть, что таких чисел может не быть. PascalABC
Читайте также
2). Дан массив из n элементов. Написать программу подсчитывающую произведение элементов массива.
таких членов.
2.Дан массив из 10 элементов. Найти количество элементов с четными индексами.
3.Дан массив из 10 элементов. Найти наибольший элемент массива.
б)Напишите программу, которая массив из 20 элементов заполнит неповторяющимися целыми числами и выведет на экран элементы с нечетными индексами.
равен 500; второй равен целой части квадратного корня из предыдущего элемента; третий равен целой части от деления текущего индекса на три части (если она равна нулю,то соответствующий элемент массива делать равным 1)
подсчитать кол-во пятерок , четверок, тоек полученных за контрольную работу, если число учеников равно 8
3)Дан одномерный числовой массив,изменить знак элементов массива К[1;12] на противоположный