Question

ДАЮ 50 БАЛЛОВ!!!! ПОМОГИТЕ С ИНФОРМАТИКОЙ ПОЖАЛУЙСТА Задание 1 Составить программу на Паскале. Определить, сколько раз в данном тексте встречается буква «ж». Текст из 5 слов задать самостоятельно. Задание 2 Составить программу на Паскале, которая удалит все буквы «е» из текста, который состоит из 5 слов. Текст нужно придумать самостоятельно.

Answer 1

Ответ:

Pascal

var

 s1:string = 'Дружба от недружбы близко живёт.';

 s2:string = 'Доброе дело два века живёт.';

 i, c :integer;

begin

 c:=0;

 for i:=1 to length(s1) do

   if s1[i]='ж' then

     inc(c);

 writeln(s1, '  В предложении букв "ж"=',c);

 i:=1;

 while i <= length(s2) do

   if s2[i]='е' then

     delete(s2, i, 1)

   else

     inc(i);

 writeln(s2);

end.

Answer 2

Конечно, я могу помочь вам с этими заданиями. Вот программы на Pascal для выполнения заданий:

Задание 1: Определить, сколько раз в данном тексте встречается буква «ж».

pascalCopy code
program CountZInText;
var
  Text: string;
  CharToCount: char;
  Count: integer;
  i: integer;
begin
  Count := 0;
  CharToCount := 'ж';  // Буква, которую мы ищем
  Write('Введите текст: ');
  Readln(Text);
  for i := 1 to Length(Text) do
  begin
    if Text[i] = CharToCount then
      Inc(Count);
  end;
  Writeln('Буква "', CharToCount, '" встречается ', Count, ' раз.');
end.

Задание 2: Удалить все буквы «е» из текста.

pascalCopy code
program RemoveEFromText;
var
  Text: string;
  i: integer;
begin
  Write('Введите текст: ');
  Readln(Text);
  for i := Length(Text) downto 1 do
  begin
    if Text[i] = 'е' then
      Delete(Text, i, 1);
  end;
  Writeln('Текст без буквы "е": ', Text);
end.

Просто скопируйте каждую программу в среду программирования Pascal (например, Lazarus или Free Pascal) и выполните их, следуя инструкциям. Первая программа подсчитает количество букв "ж" в тексте, а вторая уберет все буквы "е" из текста.