В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
milk890098
milk890098
17.04.2023 02:23 •  Информатика

1) дано число 87395120474. в нём удалили 3 цифры, сдвинув оставшиеся вместе и не меняя их порядок следования. какое минимальное число, делящееся на три, можно получить таким образом из исходного числа?
2) гена любит число 13. он решил посчитать, сколько есть трёхзначных чисел, внутри которых есть это число. например, подходят числа 135, 213, 193, но не 312, потому что в нём 1 и 3 идут в неправильном порядке. гене посчитать количество таких чисел.
3) у народа кукси алфавит состоит из 15 букв. сколько бит информации содержит в этом алфавите слово из 13 букв?
4) бельчонок придумал интересный шифрования слов (правда, пока только шестибуквенных). сначала нужно переставить 1 букву на место 2, 2 на место 3, 3 на место 4, 4 на место 1, а 5 и 6 поменять местами. бельчонок провёл одно слово через этот алгоритм 10 раз и на выходе получил слово beamer. какое слово было в начале?
5) найдите закономерность в последовательности чисел. в ответ запишите 3 следующих числа в ряде. числа нужно писать через запятую, например 1,2,3.

111, 120, 122, 201, 210, …
+ вопросы ниже

Показать ответ
Ответ:
hoper123
hoper123
19.11.2020 18:34

const

 n = 100; {максимальное число элементов в массиве}

 b = -32768;{константа для заливки массивов }

type

 tF = array[1..n] of integer;

function l(f: tF): integer;

var

 i, k: integer;

begin

 k := 0;

 l := n;

 for i := 1 to n do

   if f[i] = b then

   begin

     l := i - 1;

     exit

   end;

 k := k + 1;

end;

var

 i, k, p1, p2: integer;

 f1, f2, f3, f4: tF;

 s: string[2];

begin

 { заполним все массивы константой b }

 { если при чтении массива константа b, все элементы прочтены }

 for i := 1 to n do

 begin

   f1[i] := b;

   f2[i] := b;

   f3[i] := b;

   f4[i] := b;

 end;

 randomize;

 { f1 }

 k := random(100) + 1;

 write('Длина 1: ', k, ' ');

 for i := 1 to k do

   f1[i] := random(199) - 99; { число от -99 до 99 }

 p1 := l(f1);

 writeln(', вычислена длина ', p1);

 s := 'f1';

 { f2 }

 k := random(100) + 1;

 write('Длина 2: ', k);

 for i := 1 to k do  

   f2[i] := random(199) - 99;

 p2 := l(f2);

 writeln(', вычислена длина ', p2);

 if p2 > p1 then

 begin

   p1 := p2;

   s := 'f2';

 end;

 { f3 }

 k := random(100) + 1;

 write('Длина 3: ', k, ' ');

 for i := 1 to k do  

   f3[i] := random(199) - 99;

 p2 := l(f3);

 writeln(', вычислена длина ', p2);

 if p2 > p1 then

 begin

   p1 := p2;

   s := 'f3';

 end;

 { f4 }

 k := random(100) + 1;

 write('Длина 4: ', k, ' ');

 for i := 1 to k do  

   f4[i] := random(199) - 99;

 writeln(', вычислена длина ', p2);

 if p2 > p1 then

   s := 'f4';

 write('Самый длинный массив ', s);

end.

0,0(0 оценок)
Ответ:
Помагатель1998
Помагатель1998
31.12.2021 05:10

Объяснение:

#количество чисел - единственное число в первой строке

n = int(input())

#ввод элементов массива - все числа на второй строке

a = [float(x) for x in input().split()]

#сумма отрицательных чисел

sum_neg = sum(x for x in a if x < 0)

iMin, iMax = 0, 0

for i in range(len(a)):

   if a[iMin] > a[i]:

       iMin = i

   if a[iMax] < a[i]:

       iMax = i

product = 1

for i in range(iMin+1, iMax):

   product *= a[i]

a.sort()

print('sum = {}, product = {}'.format(sum_neg, product))

print('sorted array:', *a)

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота