Ответы
Ответ дал:
0
var max,min,buf,n1,n2,n3:integer;
begin
readln(n1);
readln(n2);
readln(n3);
if n1>n2 and n1>n3
then
begin
max:=n1;
if n2>n3
then
begin
buf:=n2;
min:=n3;
end;
else
begin
buf:=n3
end;
end;
else
if n2>n1 and n2>n3 then
begin
max:=n2;
if n1>n3
then
begin
buf:=n1;
min:=n3;
end;
else
begin
buf:=n3;
end;
end;
else
begin
max:=n3;
if n1>n2
then
begin
buf:=n1;
min:=n2;
end;
else
begin
buf:=n2;
min:=n1;
end;
end;
end.
Вас заинтересует
1 год назад
7 лет назад
7 лет назад
9 лет назад
9 лет назад