Дана строка из 0 и 1. Замените в ней все 0 и 1,а все 1 на 0 Паскаль
Answers & Comments
djrazor308
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.
Answers & Comments
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.