решить на языке ПАСКАЛЬ Дана строка символов Определить количество

решить на языке ПАСКАЛЬ Дана строка символов Определить количество

  • var a:string;

    i:integer;

    begin

    readln(a);

    i:=1;

    while pos( ,a)<>0 do begin

    inc(i);

    delete(a,pos( ,a),1);

    end;

    writeln(i);

    end.

  • var q: text;
    f: string;
    a,b: integer;
    begin
    Assign(q,C://textin.txt);
    Reset(q);
    read(q,f);
    close(q);
    for a:=1 to Length(f) do
    begin
    if fa= then
    b:=b+1;
    end;
    a:=0;
    b:=b+1;
    assign(q,C://textout.txt);
    rewrite(q);
    write(q,b);
    close(q);
    end.

    сдесь строки берутся и записываются в файлы