snoopy201
25.06.2021 18:46

Все должны быть решены на python
1
дан массив, состоящий из целых чисел
a = [1, 56, 77, 969, 777, 56]
найдите, сколько в этом массиве симметричных чисел (вида 9449 или 404).
обратите все числа, кроме симметричных. обратить – значит перевернуть порядок цифр (56 -> 65, 987 -> 789, и т.д.)
 
2
дан массив nxn, состоящих из целых чисел с одинаковым количеством строк и столбцов:
a = [
    [1, 2, 3],
    [5, 77, 4],
    [11, -2, 44]
]
1) проверьте, есть ли в соседних с отрицательными числами ячейках числа, которые нацело делятся на абсолютное значение этих отрицательных чисел (например -2 – отрицательное число. есть ли среди соседей числа, которые делятся на 2 – да (4 и 44) – ответ да)
2) выведите массив такого же размера nxn, наполненный boolean переменными. значение true должно быть в тех ячейках, которые соответствуют условию из пункта 1 (соседние с отрицательным и делится на значение отрицательного числа), в остальных - false
 
3
дан лист вида:
a = [
    [1, 2, 3],
    [5, 4],
    [11, 4, 44, 55, 6, -2, 44]
  …
]
1) напишите алгоритм quicksort, который отсортирует массив по длине подмассивов (самые длинные строки вверху, самые короткие – внизу)
2) реализуйте бинарный поиск в отсортированном массиве по длине строки
 
4
дан лист словарей вида:
a = [
      {
          “name”: “донер на абая”,
          “city”: “алматы”,
            “amount”: 5
      },
      {
          “name”: “донер на жарокова”,
          “city”: “алматы”,
            “amount”: 3
      },
      {
          “name”: “донер на аль-фараби”,
          “city”: “шымкент”,
            “amount”: 25
      },
     
]
найдите все регионы, в которых донерка с самым длинным названиям является ещё и донеркой с максимальной прибылью.

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
Greeegooo
07.09.2021 19:24
Function prime(x:integer):boolean;
var
 t:boolean;
 d:integer;
begin
 t := true;
 d := 2;
 while t and (d*d <= x) do
   begin
   if x mod d = 0 then 
     t := false;
   d := d + 1
   end;
 prime := t
end;

function order(x:integer):boolean;
var
 t:boolean;
 d:integer;
begin
 d := -1;
 repeat
   t := x mod 10 > d;
   d := x mod 10;
   x := x div 10
 until not t or (x = 0);
 order := t
end;

var
 t:boolean;
 i,k,n:integer;
begin
 t := false;
 read(k,n);
 for i := k to n do
   if prime(i) then
   if order(i) then
     begin
     write(i,' ');
     t := true
     end;
 if not t then
   write(0)
end.
0,0(0 оценок)
Ответ:
mariyshak57
03.08.2022 17:54
1.
var n,i:integer;
mass:array[1..10000] of integer;
begin
writeln('Введите кол-во чисел');
read(n);
for i:=1 to n do
begin
write('mass[',i,']=');
read(mass[i]);
end;
writeln('Элементы массива которые четные и двухначные');
for i:=1 to n do
if (mass[i] mod 2=0) and (mass[i] div 10>0) and (mass[i] div 10<10) then write(mass[i]:4);
end.
2.
var n,i:integer;
mass:array[1..10000] of integer;
begin
writeln('Введите кол-во чисел');
read(n);
for i:=1 to n do
begin
write('mass[',i,']=');
read(mass[i]);
end;
writeln('Элементы массива которые кратны 4 и трехзначные');
for i:=1 to n do
if (mass[i] mod 4=0) and (mass[i] div 100>0) and (mass[i] div 100<10) then write(mass[i]:4);
end.
3.
var i,a,m:integer;
begin
m:=3;
for i:=1 to 10 do
writeln(i,' * ',m,' = ',i*m);
end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота