Составить программу в Pascal ABC ,которая из заданной строки получала бы новую строку ,удалив все "#" и повторив каждый символ ,отличный от знака решотка дважды. Вывести на экран ,полученную новую строку.
Составить программу в Pascal ABC ,которая из заданной строки получала бы новую строку ,удалив все "#" и повторив каждый символ ,отличный от знака решотка дважды. Вывести на экран ,полученную новую строку.
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
var
str, newStr: string;
i: integer;
begin
writeln('Enter a string:');
readln(str);
newStr := '';
for i := 1 to length(str) do
begin
if str[i] <> '#' then
begin
newStr := newStr + str[i] + str[i];
end;
end;
writeln('New string: ', newStr);
end.
Пример работы программы:
Enter a string:abc#123#456#
New string: aabbcc112233445566