Question

Pascal из слова информатика получить слова :форма, кино, картина. помогите плееез​

Answer 1

program raf105;

var s,s1:string;

begin

s:= 'информатика';

s1:= s1 + copy(s,3,5);

writeln(s1);

s1:= '';

s1:= s1 + copy(s,10,1) + copy(s,9,1) + copy(s,2,1) + copy(s,4,1);

writeln(s1);

s1:= '';

s1:= s1 + copy(s,10,2) + copy(s,5,1) + copy(s,8,2) + copy(s,2,1) + copy(s,7,1);

writeln(s1);

s1:= '';

end.

Язык PascalABC