В файле хранятся строки. Преобразовать строку, заменяя каждую цифру соответствующим ей числом пробелов - Free Pascal
Формулировка задачи:
Представить данную программу в виде отдельных процедур
Program 1; uses crt; var f,g:text; fname,k:string; n,u,y:integer; m:char; begin clrscr; //открытие файла writeln('Введите имя файла для чтения'); readln(fname); assign(f,fname); {$I-} reset(f); {$I+} if IOResult<> 0 then begin writeln('Файл не найден'); readln; exit; end; writeln('Введите имя файла для записи'); readln(fname); assign(g,fname); rewrite(g); //чтение файла и преобразование строк while not eof(f) do begin readln(f,k); for u:=length(k) downto 1 do if k[u] in ['0'..'9'] then begin for y:=1 to ord(k[u])-ord('0') do insert(' ',k,u+1); delete(k,u,1); end; writeln(k); writeln(g,k); end; close(f); close(g); readln; end.
Решение задачи: «В файле хранятся строки. Преобразовать строку, заменяя каждую цифру соответствующим ей числом пробелов»
textual
Листинг программы
random(101)