Непонятно условие задачи (Delphi)

[Начинающий програм]

Благодарю Вас!

[s-andriano]

Сообщение от Начинающий програм

Как это можно доказать что два этих условия различны. Если например методом от противного. Пусть эти два условия равны и в результате мы придем к противоречию. Ну это все понимают. Ну а вот само доказательство как обосновать, буквы обозначить за вещественные числа или как. Помогите доказать! Буду очень благодарен. Хотя бы начните доказательство.

Давайте для простоты предположим, что у нас числа десятичные, притом мантисса в точности 3 разряда.
a = 1.23
b = -1.22
c = 0.0346

(a+b)+c = (1.23+(-1.22)+0.0346 = 0.01+0.0346 = 0.0446
(a+c)+b = (1.23+0.0346)+(-1.22) = 1.26-1.22 = 0.0400

Если пример непонятен - распишите его в нормализованном экспоненциальном виде, чтобы была отчетливо видна 3-разрядная мантисса.

[Начинающий програм]

Я Вам очень благодарен!

[Начинающий програм]

Всем доброго времени суток! Помогите пожалуйста найти ошибку в коде, вроде бы все так сделал, но прога после ввода одного числа почему-то вылетает.

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

program Project2ik;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  windows;
type
  Tset=set of byte;
var
  a:array of Tset;
  mn,mn1:Tset;
  n,i,j,k,x:integer;
begin
  setconsolecp(1251);
  setconsoleoutputcp(1251);

  write('Введите количество натуральных чисел: ');
  readln(n);
  writeln('Введите ',n,' натуральных чисел:');
  for i:=0 to n-1 do
    begin
      repeat
        readln(x)
      until x>0;
      a[i]:=[];
      while x>0 do
        begin
          k:=x mod 10;
          if k mod 2=0 then
            a[i]:=a[i]+[k];
          x:=x div 10
        end
    end;

  mn1:=[];
  for i:=0 to n-1 do
    begin
      mn:=[];
      for j:=0 to n-1 do
        begin
          if j<>i then
            mn:=mn+a[j]
        end;
      mn1:=mn1+(a[i]*mn)
    end;

  if mn1=[] then writeln('Четных цифр, которые не входят в одно число, нет!')
  else
    begin
      writeln('Четные цифры, которые не входят в одно число:');
      for i:=0 to n do
        begin
          if i in mn1 then
            write(i);
          writeln
        end
    end;
  readln
end.