Найдите минимальное натуральное число, которое должно быть записано в ячейке a1, чтобы построенная после выполнения вычислений диаграмма по значениям диапазона ячеек a2: d2 соответствовала рисунку? известно, что все значения диапазона, по которым построена диаграмма – целые положительные числа.

Язык программирования Python

Различные языки программирования обычно доминируют в какой-то отрасли (или нескольких), для работы в которой они хорошо подходят. Но это не значит, что программист ограничен использовать строго определённый инструмент, поэтому любой язык общего назначения, такой как Python, может применять для создания чего-угодно.

Python смог захватить малую часть рынка веб-разработки, иногда используется для написания десктопных приложений и, конечно, тотально доминирует в сфере машинного обучения. Кроме того, на нём создаётся много прототипов, которые позволяют быстро набросать функционал и внешний вид будущего проекта.

Происхождение названия

Автор языка Python назвал его в честь британского комедийного шоу «Monty Python», которое было популярно в начале 1970-х годов.

Это телешоу позволяло автору расслабиться и отвлечься от разработки языка. Однако, несмотря на настоящее происхождение названия, для людей более очевидно связывать Python со словом «змея». Этому также логотип, на котором изображена рептилия.

И хотя создатель языка не раз говорил, что название никак не связано со змеями, повлиять на мнение общества так и не удалось.

Объяснение:

Поскольку в условии не сказано, включать ли в множество повторяющиеся символы, принято решение для простоты их включать.

const
  nn = 100;{максимальная мощность множества}

var
  m: array[1..nn] of char;
  i, n, n1: integer;
  s1, s2: string;
  alpha, digit: set of char;

begin
  alpha := ['А'..'я'];
  digit := ['0'..'9'];
  n := 0;
  Writeln('Введите строку символов первого множества');
  Readln(s1);
  Writeln('Введите строку символов второго множества');
  Readln(s2);
  for i := 1 to Length(s1) do
    if (s1[i] in alpha) then begin n := n + 1; m[n] := s1[i] end;
  for i := 1 to Length(s2) do
    if (s2[i] in digit) then begin n := n + 1; m[n] := s2[i] end;
  Writeln('Результирующее множество');
  for i := 1 to n do Write(m[i]:2)
end.

Тестовое решение:
Введите строку символов первого множества
-This 1*2 П*ро=изvolnый наbop сим;волob**
Введите строку символов второго множества
Отсюда 1-(4)=5 только цифры 33.634 berem
Результирующее множество
 П р о и з ы й н а с и м в о л 1 4 5 3 3 6 3 4