Turbo Pascal.
Путем копирования и склейки из слова 'путеводитель' получить слова: водитель, путь, дело, дети.
Ответы
Ответ дал:
0
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.
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.
Похожие вопросы
2 года назад
2 года назад
7 лет назад
9 лет назад
9 лет назад
10 лет назад
10 лет назад