Скачиваний:
85
Добавлен:
23.06.2014
Размер:
883 б
Скачать
var
i:integer;{Ё­¤ҐЄб}
count: integer;{бзҐвзЁЄ бЁ¬ў®«®ў б«®ў }
s: string;{б®Ўб⢥­­®, бва®Є }
begin
Writeln('Џ®¤бзҐв ¤«Ё­л б«®ў ў бва®ЄҐ, ');
Writeln('----------------------------');
Writeln('‘«®ў ¬Ё бзЁв овбп ЈагЇЇл бЁ¬ў®«®ў,');
Writeln('а §¤Ґ«Ґ­­лҐ Їа®ЎҐ« ¬Ё.');
Writeln('‚л©вЁ - Їгбв п бва®Є (Enter).');
repeat
Writeln;
Writeln('‚ўҐ¤ЁвҐ бва®Єг:');
Readln(s);{¦¤Ґ¬ ўў®¤  бва®ЄЁ ў "s"}
count:=0;{бЎа®бЁвм бзҐвзЁЄ бЁ¬ў®«®ў}
for i:=1 to length(s) do{Їа®ўҐа塞 ўбҐ бЁ¬ў®«л ¤® Є®­ж  бва®ЄЁ}
begin
if ord (s[i])=32 then{Ґб«Ё Їа®ЎҐ«}
begin
if count>0 then Write (count);{Ґб«Ё Ўл«® б«®ў® - ­ ЇҐз в вм ¤«Ё­г}
count:=0;{бЎа®бЁвм бзҐвзЁЄ бЁ¬ў®«®ў}
Write(chr(32));{­ ЇҐз в вм Їа®ЎҐ«}
end else count:=count+1;{Ё­ зҐ 㢥«ЁзЁвм бзҐвзЁЄ бЁ¬ў®«®ў}
end;
if count>0 then Write (count); {Ґб«Ё Ўл«® б«®ў« - ­ ЇҐз в вм ¤«Ё­г}
until s=' '{Ї®Є  ­Ґ Їгбв п бва®Є  - Ї®ўв®апвм}
end.