строки (Paskal)

[Екатерина Уткина]

в данной строке каждую четную цифр заменить двмя такими же четными цифрами.
поменять в данной строке третье слово и слово минимльной длины(первое по порядку).

[Stilet]

Что не получается?

[Onni]

Вот я всегда поражалась с твоей хитро*опости (модераторы простите за плохое слово).
Твоя первая:

Program Hello_World;
Uses Crt;
  Var s1:string;
  Var count, count1:integer;
  Var s2:string;
Begin
  ClrScr;
	Write('Input massive: ');
  Read(s1);
  count1 := 2;
  count:=1;
  while count<length(s1) do begin
	count:=count+1;
	s2 := Copy(s1,count1,1);
	insert(s2,s1,count1);
	count1:=count1+2;
	Write(s1)
	End;
	Write('End of doing',s1);
  ReadLn;
  ReadLn;
End.

Не забудь на весы нажать. Есть вопросы, звони.

[Sciv]

Код неправильный имхо.

[Onni]

Сообщение от Sciv

Код неправильный имхо.

Исправьте.

[Sciv]

Сообщение от Onni

Исправьте.

Ваш код -Вы и исправляйте А я спать.

Там по условию не цифры под четными номерами задваивать надо, а четные цифры (т.е. 2,4, 6 и 8)

[Onni]

Сообщение от Sciv

Ваш код -Вы и исправляйте А я спать.

Там по условию не цифры под четными номерами задваивать надо, а четные цифры (т.е. 2,4, 6 и 8)

Вот блин)
Пошла исправлять, спокойной ночи!