Подпрограмма на Турбо паскале

[daemoon1]

Помогите пожалуйсто решить данную задачу при помощи процедуры или функции :

Известно, что две переменные имеют одинаковые значения, а третья - отличное от них. Найти ее значение.

[Roof]

личное от них.

- такого не слышал и не видел пока. Даже представить сложно
364817748 - стучись, поговорим.

[tools]

это наверное ОТличное от них, тогда задача без еще пары условий, как минимум

[daemoon1]

условие полно это 100%

[daemoon1]

ты прав я пропустил букву -

Известно, что две переменные имеют одинаковые значения, а третья - отличное от них. Найти ее значение.

[tools]

Ну , допустим, что две переменные у нас равны 5, и есть еще третья переменная, которая не равна 5. Вопрос: чему равна эта третья переменая? Ответ: чему угодно, только не 5. Это, если переменные имеют целочисленное значение. В задаче не хватает условий. Хотя бы были какие-то зависимости между этими переменными...

[daemoon1]

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

Program l_1;
var
a,b,c: boolean;
begin
if a=b then write(c)
else
if a=c then write(b)
else write(a);
end.
но как решить ее с помощью подпрограммы ума неприложу!

[Roof]

если делать через простые переменные, а не через массивы - я бы так делал.

var
 a,b,c: real;
procedure Check_values(a,b,c: real);
begin
 if (a=b) or (a=c) or (b=c) then begin
   if (a=b)
     then writeln('otlichnoe znachenie c', c);
    if (a=c)
     then writeln('otlichnoe znachenie b', b);
    if (b=c)
     then writeln('otlichnoe znachenie a', a);
  end
  else writeln('Vse znacheniya raznie ');
end;

begin
 writeln('vvedite a');
 readln(a);
 writeln('vvedite b');
 readln(b);
 writeln('vvedite c');
 readln(c);
 Check_values(a,b,c);
 readln;
end.

а насчет опечатки - да просто весело

[daemoon1]

Огромное спасибо !!!!!!!

[Roof]

Да пожалуйста )))