Решение №1
var x,y:integer;
begin
readln(x,y);
if x> y then begin
x:=x+y;
y:=x-y;
x:=x-y;
writeln(x,' ',y);
end.
Тестовое решение:
8 5
5 8
Решение №2
На PascalABC.Net можно сделать проще:
var x,y:integer;
begin
readln(x,y);
if x>y then begin swap(x,y); println(x,y); end;
end.
# # Код на ruby 2.2.3p173
max = 0
max_last = 0
min = 1000
min_last = 1000
n = 0
begin
max_last = max
min_last = min
File.open("input.txt", "r") do |infile|
line = infile.gets.strip
p line
n = line.to_i if n == 0
while (line = infile.gets)
p line
number = line.strip.to_i
max = number if max == 0 or number == max + 1
min = number if min == 1000 or number == min - 1
p [min, max]
end
end
end until (max == max_last and max < n) or (min > 0 and min == min_last) or (min == 0 and max == n)
p max + 1 if max == max_last and max < n
p min - 1 if min > 0 and min == min_last
p "error" if min == 0 and max == n
Основание системы смотрите по наибольшей цифре в числе
1. 8
2. 10
3. 2
6. 9
Var a,b,c:integer; l:boolean;
begin
writeln('a, b, c:');
readln(a,b,c);
l:=(a=-b)or(a=-c)or(b=-c);
if l then writeln('Yes') else writeln('No');
end.
Пример:
<span>a, b, c:
5 8 -5
Yes</span>
Первый забор идет вдоль стороны a и имеет длину a-1.
Второй забор идет вдоль стороны b и имеет длину b-1.
Третий забор имеет длину a-2. Четвертый имеет длину b-2.
И т. д., каждый вертикальный забор уменьшается каждый раз на 1,
то есть a-1, a-2, a-3... до 1
Каждый горизонтальный забор тоже уменьшается каждый раз на 1,
но первый забор имеет длину (b-2), а последний не 1, а (b-a).
Таким образом, сумма всех вертикальных заборов
S1 = 1+2+3+...+(a-1) = (1 + a - 1)*(a-1)/2 = a*(a-1)/2
Сумма всех горизонтальных заборов
S2 = (b-a)+(b-a+1)+(b-a+2)+...+(b-2) = (b-a+b-2)*(a-1)/2 = (2b-a-2)(a-1)/2
Итоговая длина всей ограды
S = S1 + S2 = a(a-1)/2 + (2b-a-2)(a-1)/2 = (a+2b-a-2)(a-1)/2 = (b-1)(a-1)