Дано предложение, определить количество слов в нём и определить первую букву в предложении. pascal. я все сделал нужно ввести первую букву пред. program string_6; uses crt; var tec : string; l,i,n : longint; begin clrscr; write('введите текст: '); readln(tec); l: =length(tec)+1; tec[l]: =' '; for i: =1 to l do if tec[i]=' 'then n: =n+1; write('в тексте ',n,' слов'); readln; end.
выделяет из строки S, начиная с позиции poz, подстроку из n символов. Здесь S – любое строковое выражение, poz, n – целочисленные выражения.
Можно вытащить первый символ из строки.