Кокова позиция буквы "О" в члове "Слон" (решить в Pascal).

Question

Информатика

Витаня

2 июня, 03:37

Кокова позиция буквы "О" в члове "Слон" (решить в Pascal).

+3

Ответы (1)

Знаете ответ на вопрос?

Луконя · Answer 1

Вот

var

s, x : string;

i, d, krot : longint;

begin

readln (s) ;

x:='о';

krot:=0;

d:=length (s) ;

for i:=1 to d do

if pos (x, s[i]) 0

then writeln (i) ;

end.