Добавить в программу подсчет слов. Program Stroka;
var S;S1 : string ;
p : intenger ; <номер пробела>
begin
writeln ('vvedite s');
readln(s);
p:=pos(' ', s);
while (p<>0) do (пока есть пробелы)
begin
S1 := copy(s,1,P); <копирует слово>
writeln(S1);
delete (s,1,P);
P := Pos(' ',S);
end;
S<1> := up case(S<1>);
writeln(s)
readln;
end.
var S;S1 : string ;
p : intenger ; <номер пробела>
begin
writeln ('vvedite s');
readln(s);
p:=pos(' ', s);
while (p<>0) do (пока есть пробелы)
begin
S1 := copy(s,1,P); <копирует слово>
writeln(S1);
delete (s,1,P);
P := Pos(' ',S);
end;
S<1> := up case(S<1>);
writeln(s)
readln;
end.