Дано слово "форматирование". Используя все возможные сначала функции, а потом процедуры получить как можно больше новых слов. Слова составляются на паскале с помощью функций copy, lenght и pos; и процедур delete, insert, str и val.
Answers & Comments
allangarsk
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; 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.
Answers & Comments
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;
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.