
Работа со строками
program project1 ; var Str1 , Str2 , Str3 , Str4 :String; word:String; K, L :Integer; begin Str1 := ’ Ivanov ’ ; Str2 := ’ Sergey ’ ; Writeln( ’ Stroka␣Str1␣−’ , Str1 ) ; Writeln( ’ Stroka␣Str2␣−’ , Str2 ) ; //объединение 1-й и 2-й строк Str3 := Str1+’␣’+Str2 ; //определение длины строки […]