Название: | Лабораторная работа № 16 |
Просмотров: | 71 |
Раздел: | Информатика, программирование |
Ссылка: | none(0 KB) |
Описание: | procedure Trim(Var s:string); begin {Trim} while (s[1]=)and(length(s)>0)do delete(s,1,1); while (s[length(s)]=)and(length(s)>0)do delete(s,length(s),1); end; {Trim} procedure sravn(sl:string; Var k1:i |
|