Нельзя преобразовать тип array of string к string. Исправьте плиз.
var b:string;
begin
readln(b);
b:=b.ToWords;
writeln(b);
end.
var b:string;
begin
readln(b);
b:=b.ToWords;
writeln(b);
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
//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