profile
Опубликовано 5 лет назад по предмету Информатика от irjika

соединить программу подсчета количества слов в тексте и программу создания csv файла(т.е. нужно подсчитать количество элементов в тексте и вывести отчет в csv-файл)

  1. Ответ
    Ответ дан archery
    //предполагается что слова разделены пробелами
    //предполагается что слово - это любой набор символов без пробела
    var
        f: text;
        s: string;
        i, k: integer;

    begin
        readln(s);
        k := 1;
        for i := 1 to Length(s) do
            if s[i] = ' ' then k := k + 1;
        assign(f, 'file.csv');
        rewrite(f);
        writeln(f, k, ',');
        close(f);
        
        writeln(k);
    end.
Самые новые вопросы