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

Question

Информатика

Велимира

11 ноября, 18:51

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

+2

Ответы (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.