Надо срочно написать программу

[Fylhtq]

Помогите написать програмаму)))


Утроить все цифры, стоящие перед первой буквой текста

[__STDC__]

var
	i:integer;
	str:string;
begin
	readln(str); 
	i := 1;
	while (i < length(str)) do begin
		if (str[i] in ['0'..'9']) and ((str[i+1] in ['A'..'Z']) or (str[i+1] in ['a'..'z'])) then begin
			insert(str[i]+str[i],str,i);
			i := i+3;
		end
		else
			inc(i);
	end;
	writeln(str);
	readln;
end.

а.. эт не то.. задание неправильно прочитал.. это утраивает цифры стоящие перед буквами.. ну тогда еще проще..

var
	i:integer;
	str:string;
begin
	readln(str); 
	i := 1;
	while (i < length(str)) do begin
		if (str[i] in ['0'..'9']) then begin
			insert(str[i]+str[i],str,i);
			i := i+3;
		end
		else
			break;
	end;
	writeln(str);
	readln;
end.

или нужно утроить всю последовательность? тогда так

var
	i:integer;
	str,tmp:string;
begin
	readln(str); 
	i := 1;
	tmp := '';
	while (i < length(str)) do begin
		if (str[i] in ['0'..'9']) then begin
			tmp := tmp + str[i];
			inc(i);
		end
		else
			break;
	end;
	insert(tmp+tmp,str,1);
	writeln(str);
	readln;
end.

[Gongled]

Хм, а я подумал, из ряда

789abc456

получить

212427abc456

Fylhtq, что значит «утроить»?

[Doholyan]

Количесто букв в тексте?
Или что ???

[__STDC__]

Хм, а я подумал, из ряда
789abc456
получить
212427abc456

тогда так

var
	i,num:integer;
	s,tmp:string;
begin
	readln(s); 
	i := 1;
	tmp := '';
	while (i < length(s)) do begin
		if (s[i] in ['0'..'9']) then begin
			tmp := tmp + s[i];
			inc(i);
		end
		else
			break;
	end;
	delete(s,1,length(tmp));
	val(tmp,num);
	str(3*num,tmp);
	insert(tmp,s,1);
	writeln(s);
	readln;
end.

какие еще варианты будут?
***
хотя.. как это ты так утроил что из 789 получил 212427? Оо ааа.. каждую цифру утроить..
блин, я задолбался переделывать) там несложно переделать под утроение каждой цифры.. мне лень)

[Fylhtq]

утроить значит передние цифры в куб возвести

[__STDC__]

жееесть) никто не угадал

каждую цифру в куб? или все число?

[Fylhtq]

вот это хз , блин что за задание

[__STDC__]

если кубы каждой цифры - как-то так.. лень думать уже

var
	i,num:integer;
	s,tmp1,tmp2:string;
begin
	readln(s); 
	i := 1;
	tmp1 := ''; tmp2 := '';
	while (i < length(s)) do begin
		if (s[i] in ['0'..'9']) then begin
			val(s[i],num);
			num := num*num*num;
			str(num,tmp1);
			tmp2 := tmp2 + tmp1;
			inc(i);
		end
		else
			break;
	end;
	delete(s,1,i-1);
	insert(tmp2,s,1);
	writeln(s);
	readln;
end.

вообще утроить обычно значит умножить на 3

[Fylhtq]

спасибо за все