SHARE
TWEET

Untitled

a guest Nov 12th, 2019 67 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. var i, n, l: integer;
  2. var m: real;
  3. var str, str2: string;
  4. var ch: char;
  5.  
  6. begin
  7.   n := 0;
  8.   l := 0;
  9.   read(str);
  10.   for i := 1 to length(str)do begin
  11.     if (str[i] >= '0') and (str[i] <= '9')then
  12.       n := n + 1
  13.     else if (str[i] >= 'A') and (str[i] <= 'Z') or (str[i] >= 'a') and (str[i] <= 'z') then
  14.       l := l + 1;
  15.   end;
  16.     writeln('Количество цифр: ', n);
  17.     writeln('Количество букв: ', l);    
  18. end.
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top