Задать вопрос
26 ноября, 01:16

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

+5
Ответы (1)
  1. 26 ноября, 04:52
    0
    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.
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «Дана строка из 0 и 1. Замените в ней все 0 и 1, а все 1 на 0 Паскаль ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы