| Название: | Лабораторная работа № 16 |
| Просмотров: | 86 |
| Раздел: | Информатика, программирование |
| Ссылка: | 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 |
|
