<h3>PascalABC.NET 3.4.2, сборка 1814 от 02.10.2018</h3>
begin
var n := ReadInteger('n=');
var m := MatrRandom(n, n); m.Println;
var max := m.ElementsWithIndexes.MaxBy(t -> t[0]);
Println($'Максимальный = {max[0]}');
Println($'Сумма строки = {m.Row(max[1]).Sum}');
Println($'Сумма столбца = {m.Col(max[2]).Sum}');
end.
Проверка финансово-хозяйственной деятельности за определенный период времени
По горизонтали:
1. Основное устройство ввода информации. 2. «Мозг» компьютера. 3. Устройство вывода информации. 4. Устройство хранения программ и данных. 5. Устройство для быстрого перемещения по экрану и выбора информации. 6. Устройство ввода, используемое для управления компьютером во время игры. 7. Другое название жёсткого диска. 8. Устройство, с помощью которого можно вывести на бумагу тексты и рисунки.
По вертикали:
1. Основной инструмент сбора, хранения и переработки информации.
Ответы на кроссворд Устройства компьютера:
По горизонтали: 1. Клавиатура. 2. Процессор. 3. Монитор. 4. Память. 5. Мышь. 6. Джойстик. 7. Винчестер. 8. Принтер.
По вертикали: 1. Компьютер.
<em>// PascalABC.NET 3.2, сборка 1387 от 20.02.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:int64;
Read(n);
var s:='';
var c:=Ord('0');
while n>0 do begin
s:=Chr(c+n mod 2)+s;
n:=n shr 1
end;
Writeln(s,'(2)')
end.
<u>Пример</u>
24523
101111111001011(2)