Капец, конечно. Но я тебе как нибудь помогу.
Способ А15.
Заранее пожалуйста.
<span>shift, caps lock) это же элементарно </span>
Udalit-delete[ ] s, podshitat obwee kolichestvo simvolov strlen(s)
це слово-підкова.)))))))))))))))))))))))))))))))
Program z1;
var stroka:string;
var i:integer;
begin
writeln('Введите строку');
readln(stroka);
for i:=1 to length(stroka) do
begin
if(stroka[i]='1') then
stroka[i]:='0'
else if(stroka[i]='0') then
stroka[i]:='1';
end;
writeln(stroka);
<span>end.</span>