Основание системы 16 надо писать в скобках:
8BC(16) = 8*16^2 + 11*16 + 12 = 8*256 + 176 + 12 = 2048 + 188 = 2236
Uses crt;
var n,a,k,s:integer;
begin
readln(n);
a:=n;
repeat;
a:=n mod 10;
s:=s+a;
n:=n div 10;
if a>6 then inc(k);
until a=0;
writeln(s);
writeln(k);
end.
Ответ:
ключ шифрования
Объяснение:
ключом шифруется и расшифровывается сообщение