Turbo Pascal.Дана строка, содержащая 15 символов.Подсчитать сколько раз буква 'О' встречается в данной строчке.
Program gt; var a:char; i,k:integer; begin k:=0; for i:=1 to 15 do begin read(a); if(a='O')or(a='o')then k:=k+1; end; writeln(k); end.
Спасибо!!!