подстрока S0 вставляется в строку S в позицию номер 5
результат: ExamABCple
890*890=792100 пикселей
4 Кб = 4096 байт = 32768 бит
32768/792100=0,04 бита на пиксели
0,04^2 = 1
вроде так
НА ПРИМЕРЕ В ЭТОЙ ЗАДАЧИ
program z1;
uses crt;
const
st1='ма';
st2='ма';
var
str:string;
i,k:integer;
begin
write('введите строку: ');readln(str);
for i:=1 to length(str) do
if (st1=copy(str,i,2)) or (st2=copy(str,i,2)) then
k:=k+1;
writeln(k);
end.