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

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

Question

Информатика

Флорида

3 декабря, 12:11

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

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

+2

Ответы (2)

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

Азелла · Answer 1

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.

Ладя · Answer 2

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.

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

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

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