Регистрация Спросить otvet5GPT
siifwfwutut3otu
22.10.2020 18:38
Информатика
Есть ответ 👍

Дана строка. вывести слова содержащие 'ар' использовать процедуру разбиения строки на слова. написать на языке pascal.

188
288
Посмотреть ответы 3

Ответы на вопрос:

slavikabdulla
slavikabdulla
4,7(27 оценок)

ответ:

procedure dividealine(line: string);

var

  i: integer;

  w: string;

begin

  if line[length(line)]< > ' '

  then

      line: =line+' ';

  w: =' ';

  for i: =1 to length(line) do

      if line[i]< > ' '

      then

        w: =w+line[i]

      else

        begin

          writeln(w);

          w: ='';

        end;

end;

maksdvinskih
maksdvinskih
4,4(14 оценок)

const

  nn = 25; // максимум слов

var

  a: array[1..nn] of string[20];

 

procedure parser(s: string; var k: integer);

var  

  i,n: integer;

  w: string;

begin  

  w : = '';

  k : = 0;

  n : = length(s);

  for i : = 1 to n do

    if s[i] < > ' ' then w : = w + s[i]

    else

      if length(w) > 0 then

      begin

        k : = k + 1;

        a[k] : = w;

        w : = '';

      end;

  if length(w) > 0 then

  begin

    k : = k + 1;

    a[k] : = w;

  end;

end;

 

var

  s: string[254];

  i, k: integer;

 

begin

  readln(s);

  parser(s, k);

  for i : = 1 to k do

    if pos('ар', a[i]) > 0 then

      write(a[i], ' ');

end.

программа уровня турбо паскаль

valera228005
valera228005
4,4(24 оценок)

а=истина

в=истина

а& в=истина

ā=ложь

нев=ложь

а\/в=истина

а→в=истина

а< -> в=истина

Реши свою проблему, спроси otvet5GPT

  • Быстро
    Мгновенный ответ на твой вопрос
  • Точно
    Бот обладает знаниями во всех сферах
  • Бесплатно
    Задай вопрос и получи ответ бесплатно

Популярно: Информатика

Caktus Image

Есть вопросы?

  • Как otvet5GPT работает?

    otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.

  • Сколько это стоит?

    Проект находиться на стадии тестирования и все услуги бесплатны.

  • Могу ли я использовать otvet5GPT в школе?

    Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!

  • В чем отличия от ChatGPT?

    otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.

Подпишись на наш телеграмм канал

GTP TOP NEWS