Cp-1251 - это 8-битная кодировка, т.е. один символ кодируется 8-ю битами, или одним байтом.
UNICONDE - это 16-битная кодировка, один символ кодируется 16-ю битами, или двумя байтами.
Таким образом сообщение длиной 35 символов занимало 35 байт в кодировке cp-1251, и после перекодировки стало занимать в два раза больше, то есть 70 байт.
Объем изменился на 35 байт.
Путем сдвига каждой буквы на 3(если буква конечная, продолжаем с начала), получаем:
а) фирхвдуя -> члушежцв
б) шсусыгв тсжсзг -> ыфцфюёе хфйфкё
d) цъидрюм жсз ргьгофв -> щэлжубп йфк уёяёсче
Сфотографигуй или нарисуй и сканируй
Var
a:array[1..4,1..5] of integer;
i,j,p:integer;
Begin
p:=1;
For i:=1 to 4 Do
begin
for j:=1 to 5 do
begin
a[i,j]:=random(-70,100);
write(a[i,j]:4);
if abs(a[i,j] mod 10)=3 then p:=p*a[i,j];
end;
writeln;
end;
Writeln('Ответ: ',p)
<span>End.</span>