Самое простое, чтоб без заморочек, занести в массив и отсортировать его
var
a:array[1..3]of real;
i,j:integer;
p:real;
begin
for i:=1 to 3 do
begin
write('Введите число: ');
readln(a[i]);
end;
for i:=1 to 3 do
for j:=1 to 3 do
if a[j]<a[i] then
begin
p:=a[i];
a[i]:=a[j];
a[j]:=p;
end;
for i:=1 to 3 do write(a[i],' ')
<span>end.</span>
Var x,y:real;
begin
read (x,y);
if (x<0) and (y<0) then writeln (abs(x),' ',abs(y)) else
if ((x<0) and (y>=0)) or ((y<0) and (x>=0)) then writeln (x+27,' ',y+27) else
if (x>=0)and (y>=0) then writeln (x-20,' ',y-20);
end.
<span>а) AND (A5> 5; A5 <20)=TRUE
</span>Б)OR (C5 <10; С5> = 20)=<span>TRUE
</span>в) OR (C5 <10; A5> 20)=<span>TRUE
</span><span>г) AND (A5> -2; B5> 0)=FALSE</span>
<span>
</span><span>
</span>
В пятеричной, так как 22 в 5 = 12 в 10, 23 в 5 = 13 в 10, а 100 в 5 = 25 в 10, то есть 12+13=25, ч.т.д
Т а к ? ________________________________