Цитата:
Сообщение от Olga)
Помогите пожалуйста, зачет скоро сдавать
Программа на Паскале:
Составить программу, заменяющую в исходной строке символов все единицы нулями, а все нули единицами. Заранее большое спасибо )
|
Цитата:
Сообщение от MrSTEP
В чем трудность решения столь простой задачи?
|
Ладно. С учетом того, что есть кое-какие тонкости.
Код:
VAR
S,S1:String;
i:Byte;
BEGIN
WriteLn('Enter the string:');
ReadLn(S);
S1:=S;
For i:=1 to Length(S) do
begin
If S[i]='0' then S1[i]:='1';
If S[i]='1' then S1[i]:='0';
end;
S:=S1;
WriteLn('Modified string:');
WriteLn(S);
ReadLn;
END.