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

Question

Информатика

Георгина

31 августа, 01:27

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

+2

Ответы (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.