Вывести несколько слов и отсортировать их по количеству символов (по убыванию)
Категория: Delphi/Pascal
2011-08-28 21:03:38
code: #pascal
- var s1; s2: string;
- x1,x2: integer;
- begin
- x1:=lenght(s1);
- x2:=lenght(s2);
- if x1<x2 then
- label1.caption:=s2+#13+s1
- else
- label1.caption:=s1+#13+s2
- end.
Поделиться: