кол-во слов заданной длины

Посмотреть архив целиком
program Pr1;

{$APPTYPE CONSOLE}

uses
SysUtils;


function kol_sl(x:string; n:integer):integer;
var i,k,kol:integer;
slovo:array[1..30]of string;
begin
kol:=1;k:=0;

for i:=1 to length(x) do
{slovo[kol]:='';}
if x[i]<>' ' then
slovo[kol]:=slovo[kol]+x[i]
else kol:=kol+1;



for i:=1 to kol do
if length (slovo[i])=n then
k:=k+1;

kol_sl:=k;
end;

var a:array[1..30]of string;
s,n,i,k:integer;
begin
{основная программа}
writeln('vvedite kol. strok');
readln(n);
writeln('vvedite stroki');
for i:=1 to n do
readln(a[i]);

writeln('vvedite zadannuy dlinu slov');
readln(k);
s:=0;
for i:=1 to n do
s:=s+kol_sl(a[i],k);

if s=0 then writeln('takix slov net')
else writeln('kol. slov zadannoy dliny =',s );
readln;

end.





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