Question

ДАЮ 35 БАЛЛОВ ПОМОГИТЕ С ИНФОРМАТИКОЙ ПАСКАЛЬ 9 КЛАСС Получено 9 целых чисел `(x1–x9)`. Известно, что одно из них отлично от 8 других, равных между собой. Вывести это число. Алгоритм должен выполнять не более 1 операций сравнения.

Answer 1

Ответ:

var v,s,sm:integer;

x:array[0..8] of integer;

begin

 

 for var i:=0 to 8 do

 begin

   write('Введите число x',i+1,' = '); readln(x[i]);

 end;

 for var i1:=0 to 7 do

 begin

   if x[i1] = x[i1+1] then v:=x[i1];

   s:= s+x[i1];

 end;

 s:= s+x[8];

 sm:= s-(v*8);

 write('Число отличающиеся - ',sm);

 

end.

Answer 2

Для решения этой задачи, вам нужно воспользоваться бинарным поиском. Вы можете сравнить первые два числа (x1 и x2) и определить, равны ли они между собой. Если они равны, то искомое число находится среди оставшихся семи чисел. Если они не равны, то одно из них отличается от остальных восьми.

Вот пример паскальского кода для решения этой задачи:

pascalCopy code
program FindDifferentNumber;
var
  x1, x2, x3, x4, x5, x6, x7, x8, x9, differentNumber: integer;
begin
  // Вводим 9 целых чисел
  writeln('Введите 9 целых чисел:');
  readln(x1, x2, x3, x4, x5, x6, x7, x8, x9);

  // Проверяем первые два числа
  if x1 = x2 then
    differentNumber := x3
  else
    differentNumber := x1;

  writeln('Отличное число от остальных: ', differentNumber);
end.

Этот код сначала сравнивает x1 и x2. Если они равны, то отличное число находится среди остальных чисел. Если они не равны, то отличное число - это x1.