Дан текст. Напечатать его, предварительно преобразовав его следующим образом:

@zops · Регистрация: 06.11.2009

Дан текст. Напечатать его, предварительно преобразовав его следующим образом:
б) после каждой буквы ‘g’ добавить букву ‘u’;

кто поможет чупик

@кот Бегемот · 28.11.2009, 15:12

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

Дан текст. Напечатать его, предварительно преобразовав его следующим образом:
б) после каждой буквы ‘g’ добавить букву ‘u’;

кто поможет чупик

Pascal

var
a:string;
i:integer;
begin
readln(a);
for i:=length(a) downto 1 do
if a[i]='g' then insert('u',a,i+1);
writeln(a);
end.

@zops · 28.11.2009, 15:14 **[ТС]**

спасибо чупик с меян

@zops 2 / 2 / 0 Регистрация: 06.11.2009 Сообщений: 17
		1
	Дан текст. Напечатать его, предварительно преобразовав его следующим образом: 28.11.2009, 15:01. Показов 1662. Ответов 2 Метки нет (Все метки) Дан текст. Напечатать его, предварительно преобразовав его следующим образом: б) после каждой буквы ‘g’ добавить букву ‘u’; кто поможет чупик 0

Опции темы

Решение