Объект, порождающий информацию и представляющий её в виде сообщения- это ИСТОЧНИК ИНФОРМАЦИИ.
<em>// PascalABC.NET 3.3, сборка 1625 от 17.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var (a,b):=ReadInteger2;
if b=0 then Writeln(0)
else begin
var p:int64:=a;
while b>0 do begin
p*=b mod 10;
b:=b div 10
end;
Writeln(p)
end
end.
<u>Пример</u>
2342 8945923
182113920
Возможные ответы:
1. В том случае, если все вновь вычисленные контрольные биты совпадают с полученными, то сообщение получено без ошибок.
2. Если ошибка произошла только в одном бите.
В ответах не уверен, руководствовался материалом https://habrahabr.ru/post/140611/.