Pascal, записи

Удалить все символы "+", а символы, не являющиеся "+", удвоить

Question

Информатика

Декабрена

11 августа, 04:56

Pascal, записи

Удалить все символы "+", а символы, не являющиеся "+", удвоить

+5

Ответы (1)

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

Феврония · Answer 1

var

inStr, outStr : string;

i : integer;

begin

outStr : = '';

ReadLn (inStr) ;

for i : = 1 to Length (inStr) do

if inStr[i] '+' then

outStr : = outStr + inStr[i] + inStr[i];

WriteLn (outStr) ;

end.

Pascal, записиУдалить все символы "+", а символы, не являющиеся "+", удвоить

Pascal, записи

Удалить все символы "+", а символы, не являющиеся "+", удвоить