• Помогите пожалуйста!!!СРОЧНО!!! Прошу!!!Написать программу в паскале!!!


    Составить процедуру, заменяющую в исходной строке символов все единицы нулями и все нули единицами. Замена выполняется, начиная с заданной позиции строки.

Ответы 1

  • vark:integer;s:string;procedure Zamena(var ss:string; p:integer);vari:integer;beginfor i:=p to length(ss) dobeginif ss[i]='1' then ss[i]:='0' elseif ss[i]='0' then ss[i]:='1';end;end;beginwriteln('Введите строку: ');readln(s);writeln('Введите позицию с которой начинать замену: ');readln(k);Zamena(s,k);writeln('Измененная строка: ',s);end.
    • Автор:

      erikao2a
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years