Получить новую строку, содержащую первые N1 символов строки S1 и последние N2 символов строки S2

@chelseak · Регистрация: 15.06.2012

Author24 — интернет-сервис помощи студентам

Даны целые положительные числа N1 и N2 и строки S1 и S2. Получить из этих строк новую строку, содержащую первые N1 символов строки S1 и последние N2 символов строки S2 (в указанном порядке).

@Puporev · 19.11.2012, 13:50

Pascal

1	s:=copy(s1,1,n1)+copy(s2,length(s2)-n2+1,n2);

Добавлено через 6 минут
Там была ошибка, поправил.
Полностью так.

Pascal

uses crt;
var n1,n2:integer;
    s,s1,s2:string;
begin
writeln('Введите 1 строку');
read(s1);
repeat
write('Введите количество символов <=',length(s1));
read(n1);
until n1<=length(s1);
writeln('Введите 2 строку');
read(s2);
repeat
write('Введите количество символов <=',length(s2));
read(n2);
until n2<=length(s2);
s:=copy(s1,1,n1)+copy(s2,length(s2)-n2+1,n2);
write(s);
End.

@chelseak · 19.11.2012, 14:14 **[ТС]**

надо эту задачу как то через процедуру Delete решить

@Puporev · 19.11.2012, 14:39

Pascal

uses crt;
var n1,n2:integer;
    s,s1,s2:string;
begin
writeln('Введите 1 строку');
read(s1);
repeat
write('Введите количество символов <=',length(s1));
read(n1);
until n1<=length(s1);
writeln('Введите 2 строку');
read(s2);
repeat
write('Введите количество символов <=',length(s2));
read(n2);
until n2<=length(s2);
delete(s1,n1+1,length(s1)-n1);
delete(s2,1,length(s2)-n2);
s:=s1+s2;
write(s);
End.

А через ж... не нужно?

@chelseak 1 / 1 / 0 Регистрация: 15.06.2012 Сообщений: 5
		1
	Получить новую строку, содержащую первые N1 символов строки S1 и последние N2 символов строки S2 19.11.2012, 13:24. Показов 3001. Ответов 3 Метки нет (Все метки) Даны целые положительные числа N1 и N2 и строки S1 и S2. Получить из этих строк новую строку, содержащую первые N1 символов строки S1 и последние N2 символов строки S2 (в указанном порядке). 0

@chelseak 1 / 1 / 0 Регистрация: 15.06.2012 Сообщений: 5
	19.11.2012, 14:14 [ТС]	3
	надо эту задачу как то через процедуру Delete решить 1

	19.11.2012, 14:39