Question

С клавиатуры вводится слово. Получить новое слово, образуемое путем прочтения исходного слова, начиная с его конца. Pascal ABC

Answer 1

Var
   S,B:string;
   i:integer;
Begin
Write('Введите строку: ');ReadLn(S);
For i:= Length(S) downto 1 do
    B:=B+S[i];
WriteLn('Перевёрнутая строка: ',B);
End.

Answer 2

Ответ:

Для получения нового слова, образованного путем прочтения исходного слова с конца, в Pascal ABC можно использовать следующий код:

program ReverseWord;
var
  word, reversedWord: string;
  i: integer;
begin
  write('Введите слово: ');
  readln(word);
  
  reversedWord := '';
  for i := length(word) downto 1 do
    reversedWord := reversedWord + word[i];
  
  writeln('Новое слово: ', reversedWord);
end.

В этом коде мы сначала считываем исходное слово с клавиатуры с помощью функции `readln`. Затем мы создаем переменную `reversedWord`, которая будет содержать новое слово, образованное путем прочтения исходного слова с конца.

Затем мы используем цикл `for` для итерации по символам исходного слова, начиная с последнего символа и заканчивая первым. Внутри цикла мы добавляем каждый символ в переменную `reversedWord` с помощью операции конкатенации `+`.

Наконец, мы выводим новое слово на экран с помощью функции `writeln`.

Пример работы программы:

Введите слово: Привет
Новое слово: тевирП

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

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