Дана строка. Преобразовать ее, удалив каждый символ * и повторив каждый символ, отличный от *. (Паскаль)

Question

Информатика

Константин

24 июня, 06:31

Дана строка. Преобразовать ее, удалив каждый символ * и повторив каждый символ, отличный от *. (Паскаль)

+3

Ответы (1)

Знаете ответ на вопрос?

Цвета · Answer 1

Var s, s1:string; k:char; i:integer;

begin

readln (s) ;

readln (k) ;

s1:='';

for i:=1 to length (s) do

if s[i]k then s1:=s1+s[i]+s[i];

writeln (s) ;

writeln (s1) ;

readln; end.