<span>program matrica;
Var
i,j,n:integer;
a:array[1..50,1..50] of integer;
Begin
Writeln('Введите размерность матрицы:');
Readln(n);
for i:=1 to n do
begin
Writeln('Ввод ',i,' строки');
for j:=1 to n do
begin
Write('A[',i,',',j,']=');
Readln(A[i,j]);
end;
end;
writeln;
writeln('Исходная матрица:');
for i:=1 to n do
begin
for j:=1 to n do
write(A[i,j],' ');
writeln;
end;
for i:=1 to n do
for j:=i to n do
if a[i,j]=a[j,i] then
Writeln(a[i,j],' i=',i,' j=',j);
End.</span>
Жилой, есть комнаты, окна, крыша,этажи, стенки, ступеньки, двери
I=2байта
символов всего 55 если конечно в конце предложения нет точки.
тогда: кол-во символов умнажаем на 2(байта)=55×2=110байт, а если вконце ещё стоит точка то кол-во символов 56 и мы делаем по такому же принцепу 56×2=112 вот и всё.