Question

(Pascal) Создать файл, состоящий из символов. Удалите из файла все пробелы.
В конец файла запишите «YES», если пробелы были и «NO» - если
пробелов не было.

Answer 1

// PascalABC.NET

begin

   var s1 := ReadlnString;

   var s2 := s1.Replace(' ', '');

   s2 += if s1.Length > s2.Length then 'YES' else 'NO';

   WriteAllText('MyFile.txt', s2)

end.