Запросить строку с клавиатуры и подсчитать в ней количество цифр, букв, пробелов

Категория: Delphi/Pascal
2011-08-31 22:28:35

Написать программу на языке Турбо Паскаль.

code: #pascal
  1. var digits,letters,spaces,count:integer;
  2.      line:string;
  3.  
  4. begin
  5.   Readln(line);
  6.   count:=Length(line);
  7.   while count>0 do
  8.   begin
  9.     if line[count] in ['0'..'9'] then digits:=digits+1
  10.     else
  11.       if line[count]=' ' then spaces:=spaces+1
  12.       else
  13.         if line[count] in ['A'..'Z','a'..'z','А'..'Я','а'..'я'] then letters:=letters+1
  14.     count:=count-1
  15.   end;
  16.   writeln(digits);
  17.   writeln(letters);
  18.   writeln(spaces);
  19. end.
Поделиться:

Похожие статьи:

теги: строки, работа со строками, консольное приложение, студенты