написать программу которая подсчитает колличество русских букв а в произвольно набранной с клавиатуры строковой переменной

срочно плиз

1

Ответы и объяснения

  • Kitsu
  • почетный грамотей
2012-12-04T12:15:10+00:00

var a:string;

i,k:integer;

begin

readln(a);

for i:=1 to length(a) do begin

if pos(a[i],'АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдеёжзийклмнопрстуфхцчшщъыьэюя')<>0 then inc(k);

end;

writeln(k);

end.