Question

Во входном файле расположена последовательность из 10-ти целых чисел. Вывести те из них, которые встречаются в последовательности один раз. только на TurboPascal!

Answer 1

Uses Crt;
Const
   N = 10;
Var
   f:text;
   S:string;
   A:array[1..N] of longint;
   i,j,k:integer;
Begin
ClrScr;
WriteLn('Введите имя файла текстового, если он лежит в папке с программой(ВходнойФайл.txt)');
WriteLn('Или введите полное имя файла (C:\...\ВходнойФайл.txt)');
ReadLn(S);
Assign(f,S);
Reset(f);
i:=1;
Repeat
Read(f,A[i]);
i:=i+1;
Until i>N;
Write('Содержимое файла:');
For i:= 1 to N do
    Write(' ',A[i]);
WriteLn;
Write('Уникальные элементы:');
For i:= 1 to N do
    Begin
    k:=1;
    For j:= 1 to N do
        if i<>j then
           if A[i]=A[j] then k:=k+1;
    if k=1 then Write(' ',A[i])
    End;
ReadLn;
End.

Пример:
Введите имя файла текстового,если он лежит в папке с программой(ВходнойФайл.txt)

Или введите полное имя файла (C:\...\ВходнойФайл.txt)
123.txt
Содержимое файла: 1 2 13 5 2 1 3 17 19 21
Уникальные элементы: 13 5 3 17 19 21

Answer 2

Решение на Turbo Pascal

Для решения данной задачи на Turbo Pascal, мы можем использовать массив для хранения последовательности из 10 целых чисел. Затем мы можем пройтись по этому массиву и проверить, какие числа встречаются только один раз.

Вот пример кода на Turbo Pascal, который решает данную задачу:

program UniqueNumbers;

const
  sequenceLength = 10;

var
  sequence: array[1..sequenceLength] of integer;
  uniqueNumbers: array[1..sequenceLength] of integer;
  i, j, count: integer;
  isUnique: boolean;

begin
  // Ввод последовательности из 10 целых чисел
  writeln('Введите последовательность из 10 целых чисел:');
  for i := 1 to sequenceLength do
  begin
    write('Число ', i, ': ');
    readln(sequence[i]);
  end;

// Проверка, какие числа встречаются только один раз
  count := 0;
  for i := 1 to sequenceLength do
  begin
    isUnique := true;
    for j := 1 to sequenceLength do
    begin
      if (i <> j) and (sequence[i] = sequence[j]) then
      begin
        isUnique := false;
        break;
      end;
    end;
    if isUnique then
    begin
      count := count + 1;
      uniqueNumbers[count] := sequence[i];
    end;
  end;

// Вывод чисел, которые встречаются только один раз
  writeln('Числа, которые встречаются только один раз:');
  if count = 0 then
    writeln('Нет уникальных чисел в последовательности.')
  else
    for i := 1 to count do
      writeln(uniqueNumbers[i]);

readln;
end.

Программа запрашивает у пользователя последовательность из 10 целых чисел и затем проверяет, какие числа встречаются только один раз. Результат выводится на экран.

Обратите внимание, что код предоставлен на Turbo Pascal, и для его выполнения вам потребуется среда разработки, поддерживающая Turbo Pascal, например, Free Pascal.

Надеюсь, это поможет! Если у вас возникнут еще вопросы, не стесняйтесь задавать.