Программирование ** языке Паскаль. Даны три числа a, b, c. Определить какое из них...

Question

Программирование на языке Паскаль.

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

Answer 1

var a,b,c,d,min:real;

   flag: boolean;

begin

   flag:=true;

   writeln('Enter A, B, C, D numbers:');

   readln(a,b,c,d);

   if (a=d) then begin

      writeln('a equals to d!');

      flag:=false;

      min:=a;

   end;

   if (b=d) then begin

      writeln('b equals to d!');

      flag:=false;

      if (b

   end;

   if (c=d) then begin

      writeln('c equals to d!');

      flag:=false;

      if (c

   end;

   if flag then writeln('Max difference: ',d-min);

end.