Правду говорит один из тех, кто говорит, что не он (МС или ДН). Так как если оба врут, то получается, что оба победили, а это противоречит задаче.
<span>Простым перебором получим, что победил ДН: </span>
<span>1) Сказал Илья Муромец: "Это все Алеша Попович, царь-батюшка" (врет - это не АП). </span>
<span>2) Алеша Попович возразил: "То был Микула Селянинович" (врет - это не МС). </span>
<span>3) Микула Селянинович: "Не прав Алеша, не я это" (правда - это не он). </span>
<span>4) Добрыня Никитич: "И не я, батюшка" (врет - это он).</span>
// создаёт текстовый файл там, где лежит программа
//////////////////////////////////////////////
var x: text;
begin
assign (x, 'file.txt');
rewrite (x);
writeln(x,'Тут напиши что-нибудь, что нужно записать в файл');
close(x);
<span>end.</span>
VB у меня нет, поэтому на своей форме пропишите для любой кнопки код процедуры АААА(), а вторую процедуру разместите в любом доступном модуле, хоть в той же форме.
Не знаю, как Вы планируете вводить текст, я его просто присвоил в программе для контрольного прогона.
Sub aaaa()
Dim s As Stringr
s = "THIS IS THE GREATEST TEST STRING AND ALL K/G CHARACTERS NEED TO BE KILLED"
DeleteChar s, "G"
DeleteChar s, "K"
MsgBox s
End Sub
Sub DeleteChar(ByRef s As String, c As String)
'Удаляем из строки s символ c
Dim k As Integer
Do
k = InStr(s, c)
If k > 0 Then s = Left(s, k - 1) + Right(s, Len(s) - k)
Loop While k > 0
End Sub
Тестовое решение:
THIS IS THE REATEST TEST STRIN AND ALL / CHARACTERS NEED TO BE ILLED
Тем что существуют разные программы выполняющий разный тип задач и для каждый из них нужно, что то свое
