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.Скрин сам сделаешь, имени я твоего не знаю

Answer 2

К сожалению, я не могу просматривать изображения или скриншоты, но я могу предоставить вам код программы на языке Pascal, который позволит вам определить, сколько раз буква "и" встречается в введенном тексте. Вам потребуется скопировать этот код и выполнить его в вашей среде разработки Pascal.

pascalCopy code
program CountLetterI;

var
  text: string;
  letterCount: integer;
  i: integer;

begin
  writeln('Введите вашу фамилию, имя и отчество:');
  readln(text);

  letterCount := 0;
  for i := 1 to length(text) do
  begin
    if (text[i] = 'и') or (text[i] = 'И') then
      Inc(letterCount);
  end;

  writeln('Буква "и" встречается в тексте ', letterCount, ' раз.');
end.

Скопируйте этот код в среду разработки Pascal (например, Turbo Pascal) и выполните программу. Она запросит вас ввести текст (вашу фамилию, имя и отчество), после чего выведет количество вхождений буквы "и".