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

Решите 1) дан текст .написать программу вставляющию после каждой запятой по одному пробелу. 2)дан текст ,слова в тексте разделены одним и несколькими пробелами.написатт программу выводящию все слова в алфавитном порядке.

202
327
Посмотреть ответы 3

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

Некий2006
Некий2006
4,4(5 оценок)
// pascalabc.net 3.1, сборка 1230 от 27.04.2016 begin   var s: =readlnstring('> ');   s: =s.replace(',',', '); writeln(s);   writeln(newline,'список слов: ');   s.towords.orderby(x-> x).println(newline); end. тестовый пример > это    мой,плохо форматированный,но зато мой текст! это    мой, плохо форматированный, но зато мой текст! список слов: зато мой мой, но плохо текст! форматированный, это
visnevskay1
visnevskay1
4,5(54 оценок)
//pascal abc.net v3.1 сборка 1172 //1 var   s: string;   i: integer; begin   readln(s);   while i< length(s) do   begin   inc(i);   if s[i]=',' then insert(' ',s,i+1);   end;   writeln(s); end. пример ввода: some,awesome,test,text, пример вывода: some,  awesome,  test,  text,  //2 var   s: string;   i,k,j: integer;   ars: array of string; begin   readln(s);   setlength(ars,length(s));   k: =0;   for i: =1 to length(s) do   begin   if (s[i]=' ') and (s[i+1]< > ' ') and (i< > length(s)) then inc(k) else  ars[k]: =ars[k]+s[i];   end;   for i: =0 to k-1 do   for j: =i+1 to k do     if lowercase(ars[i])> lowercase(ars[j]) then     begin     s: =ars[i];     ars[i]: =ars[j];     ars[j]: =s;     end;   for i: =0 to k do   writeln(ars[i]);   end. пример ввода:               много яков и антилоп пример вывода: антилоп и много яков
гуудик
гуудик
4,8(99 оценок)
Program n1; var a,x,y,sk,sp: real; begin  writeln('storona kvadrata'); readln(a); writeln('storonbl pryamoygol'nika'); readln(x,y); sk: =a*a+a*a; sp: =x*y; if sk< =sp then writeln('pomestitsya'); else writeln('ne pomestitsya') end; может ковычки где не надо поставил, в программе увидишь, просто не имею паскаля на компьютере, писал прямо сюда, должно быть верно. гуру сайта проверят.

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

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

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

Caktus Image

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

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

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

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

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

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

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

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

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

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

GTP TOP NEWS