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

Question

Информатика

Венуша

23 октября, 13:04

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

+4

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