//PascalABC.Net
//1
var
a, b, c: real;
begin
readln(a, b, c);
writeln(a+b+c - max(a, max(b, c)) - min(a, min(b, c)));
end.
//2
var
a, b, c: real;
begin
readln(a, b, c);
writeln('Наименьшее число: ', min(a, min(b, c)));
writeln('Наибольшее число: ', max(a, max(b, c)));
end.
Дописываем немного код для перебора и проверяем вывод
var
x, a, b, t: longint;
begin
for t := -1000 to 1000 do
begin
x := t;
a := 0;
b := 1;
while x > 0 do
begin
if x mod 2 > 0 then
a := a + x mod 8
else
b := b * (x mod 8);
x := x div 8;
end;
if (a = 2) and (b = 12) then
writeln(t);
end;
end.
Вывод 598
626
654
689
906
913
т.е. минимальное число 598
Аналитическое решение:
имеем дело с 8ричным числом. Перебираем его цифры.
Если цифра нечетная то сумируем ее к А, а четные перемножаем с В
В = 12 это произведение 12 = 2*6 = 3*4 = 1*12, но нужно чтоб все числа были четные потому 2*6
А = 2. 2 = 2 = 1+1 , поскольку числа нечетные, то 2 = 1+1
Значит у нас есть 4 8ричные цифры 2,6,1,1
Минимальное число которое может из них получиться 1126(8) = 598(10)
256 Кб = 2097152 бита
2097152/128000~16,384 секунд => 17 секунд
Ответ:
2 5 3 1 6 4 7
Объяснение:
http://baza.uk/party.docx
<span>var
</span>ar:array[1..10] of integer;
sr,i:integer;
begin
randomize;
for i:=1 to 10 do begin
ar[i]:=random(11);
sr:=sr+ar[i];
end;
writeln('Среднее арифметическое равно = ',sr/10);
<span>end.</span>