Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

Дана строка из 0 и 1. Замените в ней все 0 и 1,а все 1 на 0 Паскаль

Ответ оставил Гость

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);
end.