Question

Составить программу на Паскале: Ввести с клавиатуры строку. приписать к ней фразу "ПРИВЕТ", начиная с 4 символа исходной строки

Answer 1

Если правильно тебя понял, то вот такой код.

var str,str1:string;

I:integer;

begin

Read(str);

str1:=str[1] + str[2] + str[3] + 'Привет!';

for I:=4 to length(str) do

begin

str1:=str1 + str[i];

end;

Writeln(str1);

end.

Answer 2

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

pascalCopy code
program AddString;

var
  OriginalString, AddedString: string;
  Position: integer;

begin
  // Вводим строку с клавиатуры
  writeln('Введите строку:');
  readln(OriginalString);

  // Проверяем, что исходная строка имеет длину больше или равную 4
  if length(OriginalString) >= 4 then
  begin
    // Выделяем подстроку с 4-го символа исходной строки до конца строки
    AddedString := copy(OriginalString, 4, length(OriginalString) - 3);
    // Приписываем к полученной подстроке фразу "ПРИВЕТ"
    AddedString := AddedString + 'ПРИВЕТ';
    // Выводим исходную строку и новую строку
    writeln('Исходная строка: ', OriginalString);
    writeln('Новая строка: ', AddedString);
  end
  else
    writeln('Строка слишком короткая. Введите строку длиной не менее 4 символов.');

end.

Пожалуйста, учтите, что в этой программе предполагается, что введенная строка имеет длину не менее 4 символов. Если введенная строка короче, программа выведет сообщение об ошибке.