Определите, верно ли, что в заданном четырехзначном числе ровно две одинаковые цифры. условный оператор, а также операции сравнения и логический (булевский) тип данных, а также типы данных строка или множество использовать нельзя! принимаю на: c++, python, pascal или java.

//PascalABC.NET версия 3.3.5

var  ar: array[0..3] of integer;
  digits: array[0..9] of integer;
  out: array[1..4, 1..7]of integer;

begin
  for var i := 0 to 9 do
    digits[i] := 0;
  var sum := 0;
  for var i := 1 to 2 do
  begin
    out[i][1] := 1053;
    out[i][2] := 1077;
    out[i][3] := 1074;
    out[i][4] := 1077;
    out[i][5] := 1088;
    out[i][6] := 1085;
    out[i][7] := 1086;
  end;
  out[4][1] := 1053;
  out[4][2] := 1077;
  out[4][3] := 1074;
  out[4][4] := 1077;
  out[4][5] := 1088;
  out[4][6] := 1085;
  out[4][7] := 1086;

  out[3][1] := 1042;
  out[3][2] := 1077;
  out[3][3] := 1088;
  out[3][4] := 1085;
  out[3][5] := 1086;
  out[3][6] := 160;
  out[3][7] := 160;
  var num := readinteger('Введите четырехзначное число:');
  ar[3] := num mod 10;
  ar[2] := num div 10 mod 10;
  ar[1] := num div 100 mod 10;
  ar[0] := num div 1000;
  for var i := 0 to 3 do
    digits[ar[i]] += 1;
  for var i := 0 to 9 do
    try
      sum += digits[i] div digits[i];
    except
      on System.DivideByZeroException do   
end; 
for var i := 1 to 7 do
    write(chr(out[sum][i]));
end.

7: b - 4

8: 5

9: ЖДАВБЕГ

10: Соль - 2700

Объяснение:

№7

11121

К числу 63  три раза прибавили 3 - 11121

63+3+3+3 = 72 - следующее действие /b

Число 72 разделили на b, а потом прибавили 3 - 11121

21-3=18 - предыдущее действие /b

b=72/18

b=4

№8 фото

№9

https :// orb .ru / math .doc

№10

Соль | Перец (или) - количество страниц, где есть слово перец или слово соль или оба

Соль & Перец (и) - количество страниц, где есть обязательно два слова соль и перец

Перец - количество страниц, где есть обязательно слово перец (в этом количестве есть страницы со словом Соль, то есть тут есть количество и)

4000 - 1600 = 2400 - отнимаем от количества или количество перец

2400 + 300 = 2700 - прибавляем количество и

Объяснение:

В последние два десятилетия массовое производство персональных компьютеров и стремительный рост Интернета существенно ускорили становление информационного общества. В информационном обществе главным ресурсом является информация, именно на основе владения информацией о самых различных процессах и явлениях можно эффективно иоптимально строить любую деятельность.

Для жизни и деятельности в информационном обществе необходимо обладать информационной культурой, т. е. знаниями и умениями в области информационных технологий, обладать умением формулировать задачу, создавать модели явлений, объектов, процессов и на их основе создавать алгоритмы и программы. На уроках информатики студенты изучают методы алгоритмизации и программирования и должны применять полученные знания при изучении остальных дисциплин.

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