Регистрация Спросить otvet5GPT
lfhnvjk2007
29.03.2022 08:40
Информатика
Есть ответ 👍

Pascal. 1.определить количество слов в предложении. 2.определить какая буква в строке встречается чаще: первая или последняя. 3. написать программу меняющую слово "петр" на "иван".

223
452
Посмотреть ответы 2

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

fedosovdenis28
fedosovdenis28
4,6(47 оценок)
Для подсчёта слов в предложении, вот код: program slova; var   s: string;   r,i: integer; begin   writeln('введите ваше предложение');   readln(s);   s: =s+' ';   for i: =1 to length(s)-1 do   if (s< > ' ') and (s[i+1]=' ') then   r: =r+1;   writeln('в предложении ',r, ' слов. ');   readln; end. какая буква встречается чащеprogram bykv; var s: string;       i,k1,k2: byte; begin       write('введите строку: '); readln(s);       for i: =2 to length(s)-1 do         if s[i]=s[1] then inc(k1)           else if s[i]=s[length(s)] then inc(k2);       writeln('первая буква встречается ',k1);       writeln('последняя буква встречается ',k2);       writeln('вывод: ');       if k1> k2 then writeln('первая буква встречается чаще')         else if k1< k2 then         writeln('последняя буква чаще')           else writeln('одинаково');       readln; end. изменить слово петя на иван в строке program test; var s,t,z,p: string; j: integer; begin writeln('введите ваше предложение'); readln(s); write('введите слово которое хотите заменить: '); readln(t); write('введите замену слову: ', t, ' < > '); readln(z); if pos(t,s)< > 0 then j: =pos(t,s); p: =copy(s,1,j-1); p: =p+z; p: =p+copy(s,j+length(t),length(s)); writeln(p); readln; end.
Cennet55
Cennet55
4,6(9 оценок)
Program pr1; uses crt; var mas: array[1..20] of integer; i,v,a,k,x: integer; begin clrscr; writeln('vvedite a'); readln(a); writeln('vvedite k'); readln(k); for i: =1 to 20 do begin writeln('vvedite ',i,'-ji simvol'); readln(mas[i]); end; v: =0; x: =0; for i: =1 to 20 do begin if mas[i] mod 2< > 0 then v: =v+mas[i]; if mas[i]> a then writeln('> a ',i); if (mas[i] mod k=0) and (mas[i]> 0) then x: =x+1; end; writeln('summa nechetnih - ', v ); if x> 0 then writeln('true') else writeln('false'); end.

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

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

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

Caktus Image

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

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

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

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

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

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

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

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

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

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

GTP TOP NEWS