1.используя функцию вырезки подстроки и операцию конкатенации из слова "операция" получить слово "перо". 2. определить длину символьной строки "ноутбук" решиите ! ато я эти темы : с
var s,s1,s2,s3:string; i,q:integer; begin s:='ноутбук'; s1:='операция'; s2:='операция'; Delete(s1,5,4); Delete(s1,1,1); Delete(s2,2,7); s3:=concat(s1,s2); for i:=1 to length(s) do inc(q); writeln(q); writeln(s3); end.
var s,s1,s2,s3:string;
i,q:integer;
begin
s:='ноутбук';
s1:='операция';
s2:='операция';
Delete(s1,5,4);
Delete(s1,1,1);
Delete(s2,2,7);
s3:=concat(s1,s2);
for i:=1 to length(s) do inc(q);
writeln(q);
writeln(s3);
end.