Question

Составить программу, которая переворачивает слово наоборот, если оно состоит из 4 букв. Паскаль

Answer 1

var str:string;

begin

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

 readln(str);

 var reverse_str:= '';

 if str.Length = 4 then begin

                           for var i:= str.Length downto 1 do

                             reverse_str:= reverse_str + str[i];

                           writeln(reverse_str);

                        end

                   else writeln('Слово состоит НЕ из 4 букв');

end.

Answer 2

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

pascalCopy code
program ReverseWord;
var
  InputWord, ReversedWord: string;
begin
  // Введите слово
  Write('Введите слово: ');
  Readln(InputWord);

  // Проверяем, состоит ли слово из 4 букв
  if Length(InputWord) = 4 then
  begin
    // Переворачиваем слово
    ReversedWord := InputWord[4] + InputWord[3] + InputWord[2] + InputWord[1];
    WriteLn('Перевернутое слово: ', ReversedWord);
  end
  else
  begin
    WriteLn('Слово не состоит из 4 букв и не будет перевернуто.');
  end;
end.

Скопируйте этот код в среду разработки Pascal и выполните программу. Она попросит вас ввести слово, и если оно состоит из четырех букв, оно будет перевернуто и выведено на экран. Если слово имеет другую длину, программа сообщит вам, что оно не будет перевернуто.