pOscal!!!!!!!!!!

[MOTOCoder]

№2
Дано натуральное число n, символы s1,...,sn. Преоброзовать последовательность, удалив каждый символ 'q' и повторив каждый символ от 'q' .

То есть нужно сформировать 2 последовательности, в первой удалив все символы 'q', а во второй после каждого символа 'q' добавив еще 1?

Вопрос еще в силе.

[One]

если вопрос еще в силе кароче надо из последовательности удалить q и повторить последовательность без q. вроде так=)

[C_O_D_E]

если вопрос еще в силе кароче надо из последовательности удалить q и повторить последовательность без q. вроде так=)

это значть считать в строку, найти q, номер индекса занестив память, применить функцию DELETE(S,I,1) где S: строка в которую считали, I номер индекса. и вывести строку на экран

[Angelok]

Пожалуйста,напишите мне какую нить игру в паскаль!оч надо!!!!по сайтам ничего найти не могу((((

[Angelok]

заранее ОГРОМНЕЙШЕЕ СПАСИБО!!!!!!!!!!!!

[One]

слушай создай свою тему и пиши там

[One]

слушай создай свою тему и пиши там

спс что потерли флуд

[One]

Дано натуральное число n, символы s1,...,sn. Преоброзовать последовательность, удалив каждый символ 'q' и повторив каждый символ от 'q' .

В задаче ошибка! "Дано натуральное число n, символы s1,...,sn. Преоброзовать последовательность, удалив каждый символ 'q' и повторив каждый символ, ОТЛИЧНЫЙ от 'q'

[One]

плз кто сможет сделайте плз буду очень рад иБлагодарен

[MOTOCoder]

[syntax='Delphi']
var
SrcSeq,DstSeq:string;
N:integer;
i:integer;

begin
writeln('Введите N');
readln(N);
writeln('Введите исходную последовательность');
readln(SrcSeq);
for i:=1 to N do
if SrcSeq<>'q' then
DstSeq:=DstSeq+SrcSeq+SrcSeq;

writeln(DstSeq);
readln;
end.
[/syntax]

Это сложно?