|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#16
|
||||
|
||||
Скажу одно: жесть прога.
Код:
state:array[1..100, 1..100] of string; Код:
s:=copy(str1, 1, 1); Код:
block:=''; for a:=1 to 4 do for b:=1 to 4 do block:=block+state[a,b]; memo1.Lines.Add(block); |