Ответ № 1 - 32.
<span>a:=a*a*b; а=4*4*2=16*2=32
</span>
9,
т.к. day:= k выполнятеся одни раз в случае Dat[9]:= 7
<span>Число в шестнадцатиричной системе = 0xB11924E1
</span><span>Число в десятичной системе = </span>2971215073
P.S программа работает для русских символов. Если нужны латинские, то поменяйте все "а","у" и "х" на соответствующие
program n1;
uses crt;
var
st:string;
i:integer;
begin
writeln('Введите строку'); readln(st);
for i:=1 to length(st) do
if (st[i]='а') and (st[i+1]='х') then st[i]:='у';
writeln(st);
<span>end.</span>