М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
juwal
juwal
08.05.2021 09:37 •  Информатика

Решите,,кто умный составьте программу, которая заполняет массив a [1..10]случайными целыми числами в диапазоне от 1 до 10, затем элементы с четными индексами удваивает, а элементы с нечетными индексами утраивает.выведите на экран исходный и полученный массивы; ,

👇
Ответ:
10672
10672
08.05.2021
Язык Python2.7

from random import randrange

a = map(lambda x:randrange(0,10), range(10))
print a
a = [a[i]*3 if i%2 else a[i]*2 for i in range(len(a))]
print a
4,6(6 оценок)
Открыть все ответы
Ответ:
keksikgovad
keksikgovad
08.05.2021

Количество зёрен на клетке будет равно 2^(N-1)

Тут сказано использовать переменную типа integer, при этом надо помнить, что максимальный номер клетки, который можно задавать равен 31 (для номеров выше будет либо ошибка, либо неверный ответ).

Чтобы считать зерно вплоть до последней, 64-ой клетки шахматной доски- надо менять тип на uint64 либо BigInteger (но, они не везде доступны да и программу надо будет править).

Вариант с циклом loop (в нём задаётся число повторов)

function Zern2(a: integer): integer;

begin

Result := 1;

loop a-1 do

Result := Result * 2;

end;

begin

var n,m: integer;

write('Введите номер клетки: ');

Read(n);

m:=Zern2(n);

write('Зёрен на этой клетке: ',m,' шт.');

end.

Вариант с циклом while:

function Zern2(a: integer): integer;

begin

Result := 1;

while a>1 do

begin

Result := Result * 2;

a := a - 1;

end;

end;

begin

var n,m: integer;

write('Введите номер клетки: ');

Read(n);

m:=Zern2(n);

write('Зёрен на этой клетке: ',m,' шт.');

end.

Вариант без цикла:

function Zern2(a: integer): integer;

begin

Result := Trunc(power(2,a-1));

end;

begin

var n,m: integer;

write('Введите номер клетки: ');

Read(n);

m:=Zern2(n);

write('Зёрен на этой клетке: ',m,' шт.');

end.

4,8(81 оценок)
Ответ:
Амина19121
Амина19121
08.05.2021
Началась история Интернета в 1957 году с запуска искусственного спутника Советским Союзом. В ответ на это Америка решила разработать компьютерную сеть как надежную систему передачи данных: на случай начала войны Соединенные Штаты решили себя обезопасить.

Разработкой занялись ведущие университеты страны. Созданной ими сети дали имя ARPANET, сокращенное Advanced Research Projects Agency Network. Компьютеры того времени от совершенства были слишком далеки, и разработки продвигались с огромным трудом. Проект финансировало Министерство обороны страны. Научные учреждения-разработчики объединились в сети в 1969 году.

4,5(83 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ