program raf105;
var s,s1:string;
begin
s:= 'Моделирование';
s:= lowercase(s);
s1+= copy(s,1,3) + copy(s,10,1);
writeln(s1);
s1:= '';
s1+= copy(s,5,2) + copy(s,3,2) + copy(s,7,1);
s1+= copy(s,3,1) + copy(s,2,1) + copy(s,1,1);
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Verified answer
program raf105;
var s,s1:string;
begin
s:= 'Моделирование';
s:= lowercase(s);
s1+= copy(s,1,3) + copy(s,10,1);
writeln(s1);
s1:= '';
s1+= copy(s,5,2) + copy(s,3,2) + copy(s,7,1);
writeln(s1);
s1:= '';
s1+= copy(s,3,1) + copy(s,2,1) + copy(s,1,1);
writeln(s1);
s1:= '';
end.
Язык PascalABC