Question

Расшифровать сообщение, записанное наоборот. (Составить программу на языке Пасклаь

Answer 1

Решение на Pascal ABC.NET

var

 s: string;

begin

 Read(s);

 reverse(s);

 WriteLn(s)

end.  

Answer 2

Конечно, вот пример программы на языке Паскаль, которая расшифровывает сообщение, записанное наоборот:

pascalCopy code
program DecryptMessage;
uses crt;

procedure DecryptReverseMessage(const encryptedMessage: string);
var
  i: integer;
begin
  for i := Length(encryptedMessage) downto 1 do
    write(encryptedMessage[i]);
  writeln;
end;

var
  message: string;
begin
  clrscr;
  writeln('Введите зашифрованное сообщение:');
  readln(message);
  writeln('Расшифрованное сообщение:');
  DecryptReverseMessage(message);
  readln;
end.

Программа предлагает пользователю ввести зашифрованное сообщение, а затем выводит его расшифрованную версию, записанную наоборот. Она использует цикл for для перебора символов сообщения в обратном порядке и выводит их на экран.