Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:lab5_v17 / lab5_v17
.pas 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.
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