Добавил:
Oksana
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:
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.
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.
Соседние файлы в папке 1- 9_Информационные технологии обработки данных