Определить процедуру нахождения количества букв в слове, и применить её к подсчёту числа букв в каждом слове некоторого предложения — Pascal(Паскаль)

Program PascalGuru;

label 1;

var
  i: integer;
  s, sub: string;

procedure podscet(s: string);
var
  i, k: integer;
  b: set of char;
begin
  b := ['A' .. 'z'];
  k := 0;
  for i := 1 to length(s) do
    if s[i] in b then
      inc(k);
  write('Kol-vo bukv= ', k);
end;

{ -------------------------------------- }
begin
  write('Vvedite stroku:');
  readln(s);

1:
  for i := 1 to length(s) do
    if (s[i] = ' ') then
    begin
      writeln;
      sub := copy(s, 1, i - 1);
      write('V slove "', sub, '" ');
      podscet(sub);
      delete(s, 1, i);
      goto 1;
    end;
  { ************ }
  sub := s;
  writeln;
  write('V slove "', sub, '" ');
  podscet(sub);

  readln;

end.

Leave a Comment

+ 30 = 35