Дана строка. Преобразовать ее, удалив каждый символ * и повторив каждый символ, отличный от *. ( Паскаль)
Ответы:
21-09-2014 22:33
var s,s1:string;k:char;i:integer;beginreadln(s);readln(k);s1:=';for i:=1 to length(s) doif s[i]<>k then s1:=s1+s[i]+s[i];writeln(s);writeln(s1);readln;end.
⭐⭐⭐⭐⭐ Лучший ответ на вопрос «Дана строка. Преобразовать ее, удалив каждый символ * и повторив каждый символ, отличный от *. ( Паскаль)» от пользователя Марина Воробей в разделе Экономика. Задавайте вопросы и делитесь своими знаниями.
Открой этот вопрос на телефоне - включи камеру и наведи на QR-код!