На малюнку зображено вікно програми Power Point. Кілька е вікна виділені І позначені літерами. Оберіть номер літери якою позначаються кнопки зміни масштабу Заголовок ганца а)1 6)2 в)3
// PascalABC.NET 3.2, сборка 1379 от 21.01.2017 // Внимание! Если программа не работает, обновите версию!
begin var m:=ReadInteger('Количество строк в матрице:'); var n:=ReadInteger('Количество столбцов в матрице:'); var k,p:integer; Write('Строки с какими номерами поменять? '); Read(k,p); Writeln('*** Исходная матрица [',m,',',n,'] ***'); var a:=MatrRandom(m,n,-99,99); a.Println(4); Writeln(4*a.ColCount*'-'); a.SwapRows(k-1,p-1); Writeln('*** Матрица-результат ***'); a.Println(4) end.
Следующий код на Python это подтверждает:
def change_3dig():
n = 100
while n < 1000:
digits = (n // 100,
n % 100 // 10,
n % 10)
sums = (digits[0] + digits[1],
digits[1] + digits[2])
res = str(max(sums)) + \
str(min(sums))
yield (n, int(res))
n += 1
ans = [(n1, n2) for n1, n2 in change_3dig() if n2 == 1412]
print(min(ans))
Вывод:
(395, 1412)
// Внимание! Если программа не работает, обновите версию!
begin
var m:=ReadInteger('Количество строк в матрице:');
var n:=ReadInteger('Количество столбцов в матрице:');
var k,p:integer;
Write('Строки с какими номерами поменять? '); Read(k,p);
Writeln('*** Исходная матрица [',m,',',n,'] ***');
var a:=MatrRandom(m,n,-99,99);
a.Println(4); Writeln(4*a.ColCount*'-');
a.SwapRows(k-1,p-1);
Writeln('*** Матрица-результат ***');
a.Println(4)
end.
Пример
Количество строк в матрице: 5
Количество столбцов в матрице: 8
Строки с какими номерами поменять? 2 5
*** Исходная матрица [5,8] ***
-79 16 -87 -77 -93 94 -21 -16
-63 -35 58 -52 -89 -54 -32 -65
16 23 72 99 39 -46 66 -80
-85 62 -29 -14 95 69 -58 -5
-70 -47 -25 -48 33 42 -82 -12
*** Матрица-результат ***
-79 16 -87 -77 -93 94 -21 -16
-70 -47 -25 -48 33 42 -82 -12
16 23 72 99 39 -46 66 -80
-85 62 -29 -14 95 69 -58 -5
-63 -35 58 -52 -89 -54 -32 -65