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

Question

Информатика

Митяй

14 декабря, 00:17

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

+4

Ответы (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.