program Exam19;

{$APPTYPE CONSOLE}

uses
SysUtils;

type sss=string[80];
mas=array[1..10] of sss;

var
{st:mas; }
st:sss;
ff:textfile;
i,j,k,n,m,u,ksum:integer;
function kolslov(st:sss):integer;
var k:integer;
begin
k:=0;
st:=st+' ';
for i:=1 to length(st)-1 do
if (st[i]<>' ')and(st[i+1]=' ') then k:=k+1;
kolslov:=k;
writeln('**** ',k);
end;
begin
writeln('Vvedite razmernost:');
readln(n);


assign(ff,'c:\f1.txt');
rewrite(ff);
For i:=1 to n do begin
writeln('Vvedite stroku:');
readln(st);
writeln(ff,st);
end;
close(ff);
reset(ff);
ksum:=0;

writeln('FILE:');
While not eof(ff) do begin
readln(ff,st);
writeln(st);
k:=kolslov(st);
ksum:=ksum+k;
writeln;
end;
close(ff);

{l:=st[i];
for u:=1 to n do begin
if l[u]=' ' then k:=k+1;}


writeln('Kol-vo slov v strokax:',ksum);
writeln;
writeln;
readln;
{ TODO -oUser -cConsole Main : Insert code here }
end.

Случайные файлы

Файл
description.txt
anons.txt
vdv-0.txt
данные.txt
G100.txt




Чтобы не видеть здесь видео-рекламу достаточно стать зарегистрированным пользователем.
Чтобы не видеть никакую рекламу на сайте, нужно стать VIP-пользователем.
Это можно сделать совершенно бесплатно. Читайте подробности тут.