Question

Запрашивается слово перевернуть его в обратном порядке паскаль

Answer 1

var

  str1, str2: string;

   

begin

  write('Введите слово: ');

  readln(str1);

   

  for var i := str1.Length downto 1 do

     str2 := str2 + str1[i];

   

  write('Результат: ', str2);

end.

Answer 2

Для переворачивания слова в обратном порядке на языке Паскаль можно воспользоваться следующим кодом:

pascalCopy code
program ReverseString;

procedure Reverse(var str: string);
var
  i, len: integer;
  temp: char;
begin
  len := Length(str);
  for i := 1 to len div 2 do
  begin
    temp := str[i];
    str[i] := str[len - i + 1];
    str[len - i + 1] := temp;
  end;
end;

var
  word: string;
begin
  Write('Введите слово: ');
  ReadLn(word);

  Reverse(word);
  WriteLn('Перевернутое слово: ', word);
end.

Этот код определяет процедуру Reverse, которая принимает строку в качестве параметра и переворачивает её. Затем в основной программе вводится слово с помощью ReadLn, затем вызывается процедура Reverse, а затем перевернутое слово выводится обратно на экран.