Дано слово "форматирование". Используя все возможные сначала функции, а потом процедуры...

Question

Дано слово "форматирование".
Используя все возможные сначала функции, а потом процедуры получить как можно больше новых слов.
Слова составляются на паскале с помощью функций copy, lenght и pos; и процедур delete, insert, str и val.

Answer 1

Var s,d,f,z:string; i,n:integer;
begin
write('Введите текст');Readln(s);
//s:='форматирование';
n:= length(s);
for i:= 1 to n do begin
if i <6 then begin z:= z + s[i];end;end;<br>writeln(z);
f:= copy(s,2,4);
writeln('н' +f);
delete(s,1,2);insert('ka',s,1);f:= copy(s,1,5);writeln(f);end.