Задача по строкам 2.

[seeton]

1) Дана строка. Подсчитать количество содержащихся в ней цифр1|[прописных букв]2|[строчных букв]3.
2)Дана строка-предложение на русском языке. Подсчитать количество содержащихся в строке [знаков препинания]1|[гласных букв]2. (Обе проргамки на паскале плс.)

[SERG1980]

в цикле for проходитесь по каждому символу строки и проверяете i-ый символ по вашему условию. Удобно использовать оператор in

1 if s[i] in['0'..'9'] then увелич. счётчик цифр
  else if s[i] in ['а'..'я'] then.....

точно также для строчных и прописных букв
можно через оператор CASE (тоже в цикле for)

case s[i] of
'0'..'9': .....
'а'..'я':......
'А'..'Я':
.....

uses crt;
var s:string;
    nc,ns,np,i:integer;
BEGIN
 clrscr;
 nc:=0;
 ns:=0;
 np:=0;
 writeln('Vvedite stroky');
 readln(s);
 for i:=1 to length(s) do
 case s[i] of
  '0'..'9': inc(nc);
  'a'..'z': inc(np);
  'A'..'Z': inc(ns);
 end;
 writeln('Cifr: ',nc,' Strochnih bukv: ',ns,' Propisnih bukv: ',np);
 readln;
END.

Вторая задача аналогично решается
Вам эти задачи по учёбе задали? Если да то на кого вы учитесь?

[seeton]

Я учусь на программиста , ))) первый курс , не че не обесняют а задачи дают , и не знаешь че с ними делать, а учить паскаль время нет (((