Дано предложение, определить количество слов в нём и определить первую букву в предложении. 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.
Copy (S, poz, n)
выделяет из строки S, начиная с позиции poz, подстроку из n символов. Здесь S – любое строковое выражение, poz, n – целочисленные выражения.
Можно вытащить первый символ из строки.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
