Из целых чисел такая пара только одна - 2 и 2.
А если программу писать, то так
var a, b: integer
BEGIN
for a=1 to 100 do
begin
for b=1 to 100 do
begin
if a+b=a*b then write (a, b);
end;
end;
END.
Если можно брать нецелые числа, то для любого х второе число равно x/(x-1)
Например, 3 и 3/2. 3 + 3/2 = 3*3/2 = 9/2
Заходим в TeamSpeak 3 Клиент
Если вы не авторизовались с ключём привилегий, сделайте это.<span>
</span>Ключ привилегий возьмите в настройках вашего голосового сервера<span>
</span>
Вот вы и авторизовались!
Создаём канал или подканал, правой кнопки мыши кликайте на Название сервера или на дефолтный канал Default Channel<span>
</span>
Откроется окно создания канала, со всеми параметрами.
На рисунке:
1. Можно выбрать иконку 2. Можно поставить пароль доступа
P.S Смотри картинки.
Пусть обь и восток - пароходы 1 и 2
мир и енисей - 3 и 4
решение в картинках во вложении.
Ответ номер 3. 15 Кбайт. Перемножаешь страницы, строки и символы. На 8 бит не умножаешь, так как ответ в байтах.
// PascalABC.NET 3.0, сборка 1088
function InitA(n:integer):array of integer;
begin
Result:=ArrRandom(n,-31,45)
end;
procedure GetA(var a:array of integer);
begin
a:=InitA(ReadInteger('Количество элементов в массиве А: '));
end;
procedure PutM(c:char; a:array of integer);
begin
Writeln('*** Массив '+c+'[',a.Length,'] ***',#13#10,a);
end;
function FormB(a:array of integer):array of integer;
begin
Result:=Range(0,a.Length-1,2).Select(x->a[x]).ToArray
end;
function MinEl(a:array of integer):integer;
begin
Result:=a.Min
end;
begin
var mA:array of integer;
GetA(mA); PutM('A',mA);
var mB:=FormB(mA); PutM('B',mB);
Writeln('Минимальный элемент в массиве В равен ',MinEl(mB))
end.
<em><u>Тестовое решение:</u></em>
Количество элементов в массиве А: 15
*** Массив A[15] ***
[-22,0,-9,17,14,3,38,-18,-28,-17,28,13,1,1,26]
*** Массив B[8] ***
[-22,-9,14,38,-28,28,1,26]
Минимальный элемент в массиве В равен -28