Question

ПОМОГИТЕ ПОЖАЛУЙСТА!!! Паскаль АБС 1.Символы вводятся с клавиатуры до символа ‘.’ (точка). Вывести символы, предшествующие каждому из введенных. (Ввод: feui56HG Вывод: edth45GF)

Answer 1

var k:char;

s:string;

BEGIN

s:='';

repeat

read(k);

s:=s+chr(ord(k)-1)

until k='.';

delete(s,pos('-',s),1);

writeln(s);

end.

Answer 2

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

pascalCopy code
program SymbolsBeforeDot;
var
  ch: char;

begin
  write('Введите символы с клавиатуры (до символа "."): ');
  read(ch);

  while ch <> '.' do
  begin
    // Проверяем, является ли введенный символ буквой или цифрой
    if (ch >= 'a') and (ch <= 'z') then
    begin
      // Выводим предыдущую букву, предшествующую текущей
      write(chr(ord(ch) - 1));
    end
    else if (ch >= 'A') and (ch <= 'Z') then
    begin
      // Выводим предыдущую букву в верхнем регистре, предшествующую текущей
      write(chr(ord(ch) - 1));
    end
    else if (ch >= '0') and (ch <= '9') then
    begin
      // Выводим предыдущую цифру, предшествующую текущей
      write(chr(ord(ch) - 1));
    end
    else
    begin
      // Выводим символ без изменений, если это не буква и не цифра
      write(ch);
    end;

    // Считываем следующий символ
    read(ch);
  end;

  writeln; // Переход на новую строку после вывода всех символов
end.

Пожалуйста, убедитесь, что ваш компилятор поддерживает стандарт языка Pascal, в котором используется функция chr, а также что он настроен на чтение символов с клавиатуры и вывод на экран.

Вы можете скопировать данный код в среду разработки Pascal (например, Lazarus) и запустить программу. После запуска введите символы с клавиатуры и завершите ввод символом "." (точка). Программа выведет символы, предшествующие каждому из введенных, согласно указанной вами логике.