Решите все

сделайте на заранее !

var

s: string;

i, c, b: integer;

begin

Print('Введите строку из русских букв (кроме ё) и цифр:');

read(s);

for i := 1 to Length(s) do

case OrdAnsi(s[i]) of

48..57: c := c + 1;

192..255: b := b + 1;

end;

Println('Количество цифр в строке=', c);

Println('Количество русских букв в строке=', b);

end.