Question

Как слово "КОТ" превратить в "ТОК" в программе Паскаль?

Answer 1

Program p1;
var s,s1:string;
i,n:integer;
begin
s:='КОТ';
n:=length(s);
writeln(s);
for i:=1 to n do s1:=s1+copy(s,n-i+1,1);
writeln(s1);
end.

Answer 2

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

pascalCopy code
program ReverseWord;
var
  Word1, Word2: string;
  i: integer;
begin
  Word1 := 'КОТ';
  Word2 := '';

  for i := Length(Word1) downto 1 do
    Word2 := Word2 + Word1[i];

  writeln('Исходное слово: ', Word1);
  writeln('Преобразованное слово: ', Word2);
end.

Этот код создает две строки: Word1, которая содержит исходное слово "КОТ", и Word2, которая будет содержать преобразованное слово. Затем он использует цикл for для перебора символов в Word1 в обратном порядке и добавляет каждый символ в Word2. В итоге программа выводит исходное и преобразованное слова на экран.

После выполнения этой программы на экране будет выведено:

Copy code
Исходное слово: КОТ
Преобразованное слово: ТОК

Таким образом, слово "КОТ" успешно преобразовано в "ТОК" с помощью программы на языке Паскаль.