Проверьте программу, кто хорошо разбирается в программировании. program p7; var s: string; k,c,n,i,v: byte; t: string begin write ('na ulite sneg'); readln (s); n: =legth (s); for i: =1 to n do case s[i] of ' ': k: =k+1; end; writeln ('kolicestvo clov,'k); for i: =1 to n do case s[i] of ',' , '; ' , '.' , '! ' ,': ', ' end; writeln ('kolicestvo znakov prepinania',k); for i: =1 to n do case s[c] of 'b','c','d','f','g','k','l','m','n','p','r','s',t': k : =k+1 writeln('kolicestvo soglasnih, k); readkey end.

Program P7;
var S:String; n,k1,k2,k3,i:byte;
Begin
writeln('Введите строку:');
readln (S);
n:=length (S);
k1:=0; k2:=0; k3:=0;
For i:=1 to n do 
case S[I] of 
' ' : k1:=k1+1;
',',';','.','!',':','?' : k2:=k2+1;
'b','c','d','f','g','k','l','m','n','p','r','s','t': k3:=k3+1
end;
Writeln ('kolicestvo clov = ',k1+1);
Writeln ('kolicestvo znakov prepinania = ',k2);
writeln('kolicestvo soglasnih = ', k3);
readkey
end.

Пример:
Введите строку:
na ulite sneg.
kolicestvo clov = 3
kolicestvo znakov prepinania = 1
kolicestvo soglasnih = 6