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