Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:

lab5_v17 / lab5_v17

.pas
Скачиваний:
10
Добавлен:
16.03.2016
Размер:
462 б
Скачать
program lab5_v17;
uses Crt;
var
s:string;
tmpcnt,cnt,i,n:integer;
begin
ClrScr;
write('‚ўҐ¤ЁвҐ бва®Єг: ');
readln(s);
n:=Length(s);

tmpcnt:=0; // „«Ё­  ⥪г饣® б«®ў 
cnt:=0; // „«Ё­  б ¬®Ј® Є®а®вЄ®Ј® б«®ў 
for i:=1 to n do begin

if(s[i]=' ') then begin
if(((tmpcnt<=cnt) or (cnt=0)) and (tmpcnt>0)) then cnt:=tmpcnt;
tmpcnt:=0;
continue;
end;

Inc(tmpcnt);
end;

writeln('„«Ё­  б ¬®Ј® Є®а®вЄ®Ј® б«®ў : ',cnt);

readln;
end.
Соседние файлы в папке lab5_v17