Добавить в программу подсчет слов. Program Stroka; var S;S1 : string ; p : intenger ; <номер пробела> begin writeln ('vv
Добавить в программу подсчет слов. 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.