Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  уы
Language: PASCAL
Code:
Программа для K1, K2, K3 
Dim K1 As Integer, K2 As Integer, K3 As Integer, S As String, SK As String 
S = InputBox ("Введите исходную строку", a) 
K1 = InputBox ("Введите K1", a) 
SK = WordK (S, K1) 
MsgBox ("Слово номер ", K1, ": ", SK) 
K2 = InputBox ("Введите K2", a) 
SK = WordK (S, K2) 
MsgBox ("Слово номер ", K2, ": ", SK) 
K3 = InputBox ("Введите K3", a) 
SK = WordK (S, K3) 
MsgBox ("Слово номер ", K3, ": ", SK) 
End Sub
Comments: