0011 1 - одна ошибка - 00110 -Б
11 1 10 - одна ошибка - 11010 -А
110 0 0 - одна ошибка - 11010 - А
101 1 1 - одна ошибка - 10101 -В
ответ БААВ
Var n,S,P:integer;
Begin
Write('n = ');ReadLn(n);
P:=1;
S:=0;
While n > 0 do
Begin
P:=P*(n mod 10);
S:=S+n mod 10;
n:=n div 10
End;
WriteLn('S - P = ',S-P)
End.
за 30 мин ученик прочитает 160*30 = 4800 символов.
если 1 мисвол кодируется 1 байтом (кодировка Windows), то информационный объем составит 4800байт = 4,7Кб
если 1 символ кодируется 2 байтами (кодировка Unicode), то информационный объем составит 9600байт = 9,4Кб
Var
a,b,c:Integer;
Begin
Read(a,b,c);
if (a*b > c*2-b) then Writeln(a+b)
else Writeln(b+c);
end.