Дано предложение, определить количество слов в нём и определить первую букву в предложении. 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.

108

305

Посмотреть ответы 2

Ответы на вопрос:

AlinaSmail76

Информатика

4,6(82 оценок)

Copy (s, poz, n) выделяет из строки s, начиная с позиции poz, подстроку из n символов. здесь s – любое строковое выражение, poz, n – целочисленные выражения. можно вытащить первый символ из строки.