var a,b,c, max, min:real; begin Readln(a,b,c); if (a > b) and (a > c) then Max:= a; if (c > b) and (c > a) then Max:= c; if (b > a) and (b > c) then Max:= b;
if (a < b) and (a < c) then Min:= a; if (c < b) and (c < a) then Min:= c; if (b < a) and (b < c) then Min:= b;
if (a <> min) and (a <> max) then writeln(a); if (b <> min) and (b <> max) then writeln(b); if (c <> min) and (c <> max) then writeln(c); end.
*** этот файл мы должны назвать nekkit20.pas *** *** после его компиляции будет создан модуль ***
unit nekkit20;
type tra=(string,integer);
function RomeToArab(s:string):integer; // Перевод римских чисел (не больших MMMCMXCIX) в арабские begin var ar:='IVXLCDM'; var aa:=Arr(1,5,10,50,100,500,1000); var n:=0; Result:=0; foreach var c in s do begin var c1:=n; n:=aa[Pos(c,ar)-1]; Result+=n+(n>c1?-2*c1:0) end; end;
function Equal(r:array of string; a:array of integer):sequence of tra; // Возвращает последовательность кортежей // из массива римских чисел (массив r), // для которых есть соответствие в массиве арабских чисел (массив a) begin foreach var q in r do begin var n:=RomeToArab(q); if a.IndexOf(n)>-1 then yield((q,n)) end end;
end.
*** а это другой файл с любым именем, кроме nekkit20 *** *** он обращается к молулю nekkit20 ***
uses nekkit20;
begin var sr:=Arr('DXVIII','LXIII','MII','XIV','LXXXVIII','CXCVI'); var ar:=Arr(14,98,196,1002,518,64,87); var R:=Equal(sr,ar); if R.Count=-1 then Writeln('Нет совпадений') else foreach var t in R do Writeln(t[0],' = ',t[1]) end.
var
a,b,c, max, min:real;
begin
Readln(a,b,c);
if (a > b) and (a > c) then Max:= a;
if (c > b) and (c > a) then Max:= c;
if (b > a) and (b > c) then Max:= b;
if (a < b) and (a < c) then Min:= a;
if (c < b) and (c < a) then Min:= c;
if (b < a) and (b < c) then Min:= b;
if (a <> min) and (a <> max) then writeln(a);
if (b <> min) and (b <> max) then writeln(b);
if (c <> min) and (c <> max) then writeln(c);
end.
Пример:
-9 3 6
3