Вводится натуральное число. необходимо подсчитать сумму и количество цифр. результат вывести на экран через запятую. в программе должна быть процедура ввода и процедура для подсчёта суммы и количества цифр. обязательное использование цикла с постусловием! паскаль а

ответ:

program strtoword;

var

  s, r: string;

  i: integer;

  b: boolean;

  d: set of char;

begin

  writeln ('введите строку: ');

  readln (s);

  d : = [' ', ',', '.'];

  r : = '';

  b : = true;

  for i : = 1 to length (s) do begin

    if s [i] in d then begin

      b : = true;

    end else if b and not (s [i] in d) then begin

      r : = r + s [i];

      b : = false;

    end;

  end;

  writeln (r);

  readln;

end.

объяснение:

  d : = [' ', ',', '.'];   - это множество символов - разделителей, можно добавить еще любые символы, которые разделяют слова

Const   n = 20; var   a, b: array[1..n] of integer;   i, j: integer; begin   writeln('массив a: ');   for i : = 1 to n do   begin       a[i] : = random(199) - 99;       write(a[i] : 4);       if (a[i] > 0) and (a[i] mod 3 = 0) then       begin           j : = j + 1;           b[j] : = a[i];       end;   end;   writeln;   writeln('массив b: ');   for i : = 1 to j do       write(b[i] : 4); end. пример работы программы: массив a:     3  73  -1 -35  97 -14  25  34 -79    5 -39  39  45  96 -85 -59 -14  76 -53 -12 массив b:     3  39  45  96