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

Question

Информатика

Ольгуся

26 ноября, 01:16

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

+5

Ответы (1)

Знаете ответ на вопрос?

Флавиан · Answer 1

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.