1.Сообщения, осведомляющие о положении дел, о состоянии чего-н.
Я так поняла: это 2 числа в двоичной системе счисления,которых необходимо перемножить.
//PascalABC.NET 3.3,сборка 1627 от 27.01.2018
//Внимание! Если программа не работает, обновите версию!
begin
var a:=0;var t:=0;
for var i:=1 to 3 do
begin
if i=3 then
a:=1
else a:=7;
a*=7;
t:=t+a;
end;
t:=t*7;
Writeln('Количество предметов=',t);
end.
Или как в школах учат ->
var a,t:integer;
begin
for var i:=1 to 3 do
begin
a:=0; t:=0;
if i=3 then
a:=1
else a:=7;
a*=7;
t:=t+a;
end;
t:=t*7;
Writeln('Количество предметов=',t);
end.
Пробегаем один массив, находим индекс максимального элемента
также и второй
меняем местами значения