В ходе работы в Word случайно натыкал какие-то кнопки, в следствие чего текст отформатировался странным и образом и теперь всё выглядит как на фото ниже. При этом каждый пробел заменяется на точку автоматически. При создании нового документа это остается. Подскажите, как это отключить
Var r1, r2, x1, y1, x2, y2, x3, y3, x4, y4 :real; begin read(x1,y1,x2,y2,x3,y3,x4,y4); if x1>x2 then r1:=(x1-x2)*(x1-x2) else r1:=(x2-x1)*(x2-x1); if y1>y2 then r1+=(y1-y2)*(y1-y2) else r1+=(y2-y1)*(y2-y1); if x3>x4 then r2:=(x3-x4)*(x3-x4) else r2:=(x4-x3)*(x4-x3); if y3>y4 then r2+=(y3-y4)*(y3-y4) else r2+=(y4-y3)*(y4-y3); if r1>r2 then writeln('Первый длинней второго') else if r1=r2 then writeln('Они равны') else writeln('Второй длинней первого'); end.
Var mas:array[1..100,1..100] of integer; N,M,D,N2,i,C,j,M2,k:integer; begin N:=0;D:=0;k:=0; write('Введите N = ');Readln(N); write('Введите M = ');Readln(M); For i:= 1 to M do begin M2:=1; For N2:=i downto 1 do begin if M2<=N then begin mas[M2,N2]:=k; k:=k+1; M2:=M2+1; end; end; end; //после побочной диагонали For D:=2 to N do begin M2:=D; For N2:=M downto 1 do begin IF (M2<=N) and (N2<=M) then begin mas[M2,N2]:=k; k:=k+1; M2:=M2+1; end; end; end; For i:=1 to N do begin Writeln(); for j:=1 to M do write(mas[i,j],' '); end; end.
Это ты включил видимость пробелов. Нажми на ¶ в "главное", и всё будет норм.