Дана строка символов. Удалить из строки символы '*', а остальные удвоить

@Брауберг · Регистрация: 25.06.2012

Студворк — интернет-сервис помощи студентам

3)Дана строка символов. Удалить из строки символы '*' , а остальные удвоить.

Заранее спасибо!!!

@CodeR · 25.06.2012, 13:57

Сообщение от Брауберг

3)Дана строка символов. Удалить из строки символы '*' , а остальные удвоить.

Pascal

Var s,s1:string;
    i:integer;
Begin
    write('Введите строку: ');readln(s);
    For i:=1 to Length(s) do
     if s[i]<>'*' then s1:=s1+s[i]+s[i];
    writeln('Полученная строка: ',s1);
End.

Читай правила!на каждую задачу отдельная тема!

@Брауберг 0 / 0 / 0 Регистрация: 25.06.2012 Сообщений: 9
		1
	Дана строка символов. Удалить из строки символы '', а остальные удвоить 25.06.2012, 13:28. Показов* 3135. Ответов 1 Метки нет (Все метки) 3)Дана строка символов. Удалить из строки символы '*' , а остальные удвоить. Заранее спасибо!!! 0

Опции темы

Дана строка символов. Удалить из строки символы '*', а остальные удвоить

Решение