<span>#include <stdio.h>
int main() {
FILE* in = fopen("input.txt", "r");
char s[100], b = 1, i = 0;
short c;
do {
c = getc(in);
if (c >= '0' && c <= '9') {
if ((b = !b) && /*
*/ (c = getc(in)) == ' ' || c == <span>'\t'</span> || c == <span>'\r'</span> || c == <span>'\n'</span> || c == EOF) {
while (c != <span>'\n'</span> && c != EOF)
c = getc(in);
i = 0;
}
} else if (c == <span>'\n'</span>) {
for (b = 0; b < i; b++)
putchar(s[b]);
putchar(c);
putchar(<span>'\n'</span>);
i = 0;
b = 1;
} else {
s[i++] = c;
b = 1;
}
} while (c != EOF);
fclose(in)<span>;</span></span>
1) Создать, редактировать, копировать...
2) Переименовать, переместить, удалить...
Большую часть действий можно производить и над тем, и над другим.
var
str, charQ: string;
begin
str:="Строка";
charQ := Copy(str, 7, 1);
end;
См. решение во вложении. Всего возможно три варианта