
1)Определить сколько слов в тексте
2) Определить самое длинное слово в тексте
3)Определить сколько раз встречается символ в тексте
Если сможете пишите комментарии,а то не пойму
Завтра здавать уже
Код: Выделить всё
program strok_1;
uses crt;
const n=10;
Type mas=array[1..n] of string;
var i,j,p:integer;
a:mas;
str,st:string;
begin
clrscr;
writeln('vvedite stroku');
readln(str);
str:=str+' ';
i:=0;
repeat
inc(i);
p:=pos(' ',str);
a[i]:=copy(str,1,p-1);
delete(str,1,p);
until p=0;
writeln('vivod massiva');
for j:=1 to i do
write(a[j],' ');
readln;
end.