Почему если выводить строку через writeln
, то она будет представляться в качестве каких-то непонятных символов?
program test;
procedure palindrom(str: string);
var
s1, s2: string;
i: integer;
begin
for i := 1 to length(str) do
if str[i] <> ' ' then
s1 := concat(s1, str[i]);
i := length(s1);
while i > 0 do
begin
s2 := concat(s2, s1[i]);
i := i - 1;
end;
writeln(s1, s2);
if s1 = s2 then writeln(1)
else writeln(0);
end;
begin
palindrom('a mene nema');
end.