Помогите решить задачу в Pascal

Задано слово произвольной длины. Определить, сколько раз в нем встречается буква "и"

Question

Информатика

Татуся

30 марта, 21:12

Помогите решить задачу в Pascal

Задано слово произвольной длины. Определить, сколько раз в нем встречается буква "и"

+4

Ответы (2)

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

Андрюня · Answer 1

var

s: string; x, i: integer;

begin

write ('Введите строку: ') ;

read (s) ;

for i : = 1 to length (s) do

if s[i] = 'и' then inc (x) ;

writeln ('Кол-во букв "и": ', x) ;

end.

Владимирыч · Answer 2

Var

s: string;

c: integer;

begin

readln (s) ;

while Pos ('и', s) >0 do begin

Delete (s, Pos ('и', s),1) ;

inc (c)

end;

writeln (c)

end.

Помогите решить задачу в PascalЗадано слово произвольной длины. Определить, сколько раз в нем встречается буква "и"

Помогите решить задачу в Pascal

Задано слово произвольной длины. Определить, сколько раз в нем встречается буква "и"