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

const
 n=20;{maks dlina slova}
var
 kolvo:array[1..n] of integer;
 slovo, stroka:string;
 i,j:integer;
 f:textfile;
begin
 for i:=1 to n do kolvo[i]:=0;  
 assign(f,'c:\in.txt');
 reset(f);

   while not eof(f) do
    begin
     readln(f,stroka);
     slovo:='';
     for j:=1 to length (stroka) do
      begin
       if stroka[j] in ['',''] then {v kvdratnih skobkah
cherez zapyatuyu perechislit' vse razdeliteli slov.kazhdiy razdelitel' v kavichkah razdelitel'}
        begin
         if length(slovo) > 0 then kolvo[length(slovo)]:=kolvo[length(slovo)]+1;
         slovo:='';
        end
       else
        slovo:=slovo+stroka[j];
      end;
     if length(slovo)>0 then kolvo[length(slovo)]:=kolvo[length(slovo)]+1;
    end;

 closefile(f);
 assign(f,'c:\out.txt');
 rewrite(f);
 for i:=1 to n do 
  writeln(f,'slov iz',i,'bukv:',kolvo[i]);
 close(f);
 readln;
end;

#include<stdlib.h>
#include<stdio.h>
#include<math.h>
#include<conio.h>
void main()
{
float g,f;
int n;
printf("f= ");
scanf("%f",&f);
if (f>=1)       {g=cos((f*f)+f-1); n=1;}
else if (f<=-1) {g=f*pow(log(fabs(f)),2); n=3;}
else            {g=sin(f/(exp(f)+1)); n=2;}
printf("f= %6.3f  g=%8.5f.\n  № %d",f,g,n);
scanf("%f",&f);
}