Turbo Pascal.
Путем копирования и склейки из слова путеводитель получить слова: водитель, путь, дело, дети.
Program n_1;var s, s1, s2, s3, s4, s5, s6, s7, s8: string;begin
s:=путеводитель;
s1:=s;delete(s1, 1, 4);
s2:=s;delete(s2, 4, 8);
s3:=copy(s, 7, 1);s4:=copy(s, 4, 1);s5:=copy(s, 11, 1);s6:=copy(s, 6, 1);
s7:=s3+s4+s5+s6;
s3:=copy(s, 7, 1);s4:=copy(s, 4, 1);s5:=copy(s, 3, 1);s6:=copy(s, 8, 1);
s8:=s3+s4+s5+s6;
writeln(s1, , s2, , s7, , s8, );
end.
Оцени ответ
