Для врача исходной информацией может быть выписка справки, отдача результатов анализов пациенту, выписка лекарств.
Для регулировщика исходная информация является его движения руками(жесты), с помощью их он доводит информацию до водителей.
<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 случае объем сообщения равен=8*16 бит=128 бит
во втором случае объем равен=8*8=64 бит
уменьшился объем на 64 бита
<span />
// PascalABC.NET 3.1, сборка 1239 от 08.05.2016
begin
var x:=ReadReal('x=');
var s:=0.0;
for var i:=1 to ReadInteger('n=') do s+=sin(i*x);
Writeln('s=',s)
end.
<u><em>Тестовое решение</em></u>
x= 0.543
n= 15
s=2.79048740821036