• Дана строка. Удалить из нее все пробелы. Программа Паскаль

Ответы 1

  • program space_del;var s: string;//строковая переменнаяk:integer;beginwriteln(\'Enter text \');readln(s);//ввод строки текста с пробеламиk:=0;//значение k для входа в цикл repeatk:=pos(\' \',s); //номер позицииб на которой стоит пробелDelete (S, k, 1); //удаляется пробел с позиции kuntil k<1; //если пробел не найден, k будет равно 0; // цикл остановитсяwrite(s);end.

  • Добавить свой ответ

Еще вопросы

Войти через Google

или

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

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

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