Question

Выполнить задания в программе Паскаль.

Определить, сколько раз в тексте встречается буква «и».

В качестве входных данных введите текст, состоящий из Ваших фамилии, имени и отчества.

В отчете представить код программы и результаты работы кода в виде скриншота.

Answer 1

Ответ:

Если ищешь именно "и" а не "И" то вот программа:var i,m:integer;

n:string;

l:byte;

begin

m:=0;

writeln('Введите текст');

readln(n);

l:=length(n);

for i:=1 to l do begin

if n[i]='и' then m:=m+1;

end;

writeln(m);

end.

Если тебе также нужна заглавная "И", то вот:

var i,m:integer;

n:string;

l:byte;

begin

m:=0;

writeln('Введите текст');

readln(n);

l:=length(n);

for i:=1 to l do begin

if n[i]='и' then m:=m+1 else if n[i]='И' then m:=m+1;

end;

writeln(m);

end.

P.S.Скрин сам сделаешь, имени я твоего не знаю