Developing.ru

&quot писал(а):

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

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

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

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

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

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

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

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

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

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

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

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

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

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

[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]

Это сложно?