Guest User

Untitled

a guest
Jan 18th, 2020
79
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. program Project5;
  2.  
  3. {$APPTYPE CONSOLE}
  4.  
  5. {$R *.res}
  6.  
  7. uses
  8.   System.SysUtils,System.Character;
  9.   var
  10.   input: String;
  11.   i: Integer;
  12.   procedure DoWork(s : String);
  13.   var z: Integer;
  14.   begin
  15.   z:= 0;
  16.    for i:= Low(s) to High(s) do
  17.   begin
  18.    if (IsNumber(s[i])) then Inc(z);
  19.   end;
  20.   Writeln('Кл-во цифр - ', z);
  21.   end;
  22. begin
  23.   Writeln('Введите последовательность(строку)');
  24.   Readln(input);
  25.   DoWork(input);
  26.   Readln;
  27. end.
RAW Paste Data