Question

Нельзя преобразовать тип array of string к string. Исправьте плиз. var b:string; begin readln(b); b:=b.ToWords; writeln(b); end.

Answer 1

//ToWords разделяет строку с помощью разделителя (пробел по

//умолчанию) и возвращает массив строк.

var

 b: string;

 strings: array of string;

begin

 readln(b);

 strings := b.ToWords(' ');

 for var i := 0 to length(strings) - 1 do

   writeln(strings[i]);

end.

//Пример:

//Ввод:

q wer ty

//Вывод:

q

wer

ty

Answer 2

Вы пытаетесь прочитать строку в переменную b, а затем использовать метод ToWords, который, по-видимому, вы предполагаете, что преобразует строку в массив строк. Однако в стандартной библиотеке Pascal нет метода ToWords, который делает такое преобразование.

Если вам действительно нужно разбить введенную строку на массив строк, вы можете вручную разделить строку на подстроки, используя пробел в качестве разделителя. Вот как это можно сделать:

pascalCopy code
var
  b: string;
  words: array of string;
  i: integer;
begin
  readln(b);
  // Разделить строку на слова, используя пробел в качестве разделителя
  words := SplitStr(b, ' ');

  // Вывести каждое слово из массива
  for i := 0 to Length(words) - 1 do
    writeln(words[i]);
end.

Обратите внимание, что для использования функции SplitStr вам может понадобиться добавить необходимые библиотеки или написать эту функцию самостоятельно. Эта функция разделит введенную строку на массив строк, и затем вы можете выводить каждое слово из этого массива.