С клавиатуры вводится строка. Заменить в ней слово dog на слово cat.
Answers & Comments
DilshodSoliev
' Kod na yazike VB.NET Module Moduel1 Sub Main() Dim s As String=Console.ReadLine() Dim p As Integer p=InStr(1,s,"dog") s=Mid(s,1,p-1) & "cat" & Mid(s,p+4) Console.WriteLine(s) End Sub End Module
Answers & Comments
Module Moduel1
Sub Main()
Dim s As String=Console.ReadLine()
Dim p As Integer
p=InStr(1,s,"dog")
s=Mid(s,1,p-1) & "cat" & Mid(s,p+4)
Console.WriteLine(s)
End Sub
End Module