Question

Паскаль. Получить новую строку, заменив после первой * знаком - все последующие символы

Answer 1

Program chik;
var a:string;
l,i:integer;
begin
readln(a);
l:=length(a);
a:=a[1];
for i:=2 to l do
begin
a:=a+'*';
end;
writeln(a);
end.

Answer 2

Замена символов в строке после первого знака '*'

Для замены всех символов в строке после первого вхождения символа '*', вам потребуется использовать функции работы со строками в языке программирования Паскаль.

Вот пример кода на Паскале, который выполняет данную задачу:

program ReplaceAfterAsterisk;
var
  str: string;
  index: integer;
begin
  // Ввод строки
  writeln('Введите строку:');
  readln(str);

// Находим индекс первого вхождения символа '*'
  index := pos('*', str);

// Если символ '*' найден, заменяем все символы после него на пустую строку
  if index > 0 then
    delete(str, index + 1, length(str) - index);

// Выводим измененную строку
  writeln('Новая строка:');
  writeln(str);
end.

Этот код сначала запрашивает у пользователя ввод строки, затем находит индекс первого вхождения символа '*', и если символ найден, заменяет все символы после него на пустую строку. Наконец, он выводит измененную строку.

Примечание: Убедитесь, что ваша среда разработки или компилятор поддерживает функции работы со строками, такие как `pos` и `delete`, чтобы код работал корректно.

Надеюсь, это поможет! Если у вас есть еще вопросы, не стесняйтесь задавать.