Turbo Pascal. Дана строка, содержащая 15 символов. Подсчитать сколько раз буква 'О' встречается в данной строчке.

Question

Информатика

Старемилиан

8 сентября, 11:57

Turbo Pascal. Дана строка, содержащая 15 символов. Подсчитать сколько раз буква 'О' встречается в данной строчке.

+2

Ответы (1)

Знаете ответ?

Ольгуня · Answer 1

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.