Помогите, с решением

Question

Даны три числа a, b, c. Определить, какое из них равно некоторому числу d. Если среди данных чисел таких нет, то найти max(d-a,d-b,d-c).

Максим Русаков · Accepted Answer

Вы бы хотябы язык написали на каком решать?

Денис Калугин · Answer

uses crt; 
begin 
a,b,c,d,max: integer; 
f: boolean; 
begin 
clrscr; 
writeln('Vvedite a, b, c, d: '); 
readln(a, b, c, d); 
f := true; 
if a = d then 
begin 
writeln('a'); 
f := false; 
end; 
if b = d then 
begin 
writeln('b'); 
f := false; 
end; 
if c = d then 
begin 
writeln('c'); 
f := false; 
end; 
if f then 
begin 
if ((d-a) > (d-b)) and ((d-a) > (d-c)) then 
max := d-a; 
if ((d-b) > (d-c)) and ((d-b) > (d-a)) then 
max := d-b; 
if ((d-c) > (d-a)) and ((d-c) > (d-b)) then 
max := d-c; 
writeln('Max = ', max); 
end; 
readln; 
end.