Исходный программный код находится в приложении ниже.
Писал в: PascalABC.Net v.3.2, сборка 1325 (19.10.2016)
1) Переместить файл: 1.выбрать -> 2.перетянуть в другую папку. Результат - один файл в другой папке.
2) Удалить файл: 1.выбрать -> 2.нажать правой кнопкой мыши -> 3.в контекстном меню выбрать "удалить". Результат - файл удалится из папки и окажется в корзине.
Надеюсь я Вас правильно понял!
PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018
Внимание! Если программа не работает, обновите версию!
begin
var s:string; Writeln('Введите строку:'); Readln(s);
var s1:=ReadlnString('Что меняем:');
var s2:=ReadlnString('Чем заменить:');
s:=s.Replace(s1,s2);
Writeln('Результат'); Writeln(s)
end.
Пример
Введите строку:
(X > 0) and (Y < X) and (Z > Y) and (Z <> 5)
Что меняем: and
Чем заменить: &
Результат
(X > 0) & (Y < X) & (Z > Y) & (Z <> 5)
<span>По логике так:
Надо расположить по возрастанию, то есть первое </span>меньше второго, второе меньше<span> третьего. Поэтому под цифрами 1 и 2 надо поставить "больше": если цифры поменяются местами, то станет "меньше", что нам и надо. Порядок убывания нам не нужен - нужно возрастание, поэтому в 3 пункте "не расположены". Ну а "к пункту" можно только "вернутся")
1)Начало.
2) Сравни первое и второе числа; если первое </span><u>больше</u><span> второго , то поменяй их местами.
3)Сравни второе и третье числа; если второе </span><u>больше</u><span> третьего, то поменяй их местами.
4)Если теперь три числа <u>не </u></span><u>расположены</u> в порядке убывания, то исполни пункт 5) этого алгоритма; иначе <u>вернись</u><span> к пункту 2).
5</span>)Конец.