Есть ответ 👍

ів , інформатика 7 клас алгоритми і програми ,будь ласка розв'яжіть правильно​

262
365
Посмотреть ответы 1

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


Program one_a; uses crt; var s1,s2: string;     p,a: integer; begin       readln(s1);       readln(s2);       p: =pos(s2,s1);       if p=0 then writeln('no')       else writeln('pos: ',p); end.program one_b; uses crt; var s1,s2: string;     p,a: integer; begin       readln(s1);       readln(s2);       p: =pos(s2,s1);       if p=0 then writeln('no')       else       begin       a: =length(s2);       delete(s1,p,a);       writeln(s1);       end; end. program one_c; uses crt; var s1,s2: string;     p: integer; begin       readln(s1);       readln(s2);       s2: =' '+s2+' ';       readln(p);       insert(s2,s1,p);       writeln(s1); end.program two_a; uses crt; var s1,s2,s3: string; begin       s1: ='край озер  ';       writeln(s1);       s2: ='лесов и рек';       writeln(s2);       insert(s2,s1,length(s1)+1);       writeln(s1); end. program two_b; uses crt; var s1,s2,s3: string;     p,a: integer; begin       s1: ='я учусь в школе';       writeln(s1);       s2: ='в школе';       s3: ='в 10-м классе';       p: =pos(s2,s1);       a: =length(s2);       delete(s1,p,a);       insert(s3,s1,p+1);       writeln(s1); end. program three_a; uses crt; var s1,s2: string;     p,a: integer; begin       s1: ='моя родина беларусь';       writeln(s1);       s2: ='беларусь';       p: =pos(s2,s1);       a: =length(s2);       delete(s1,p,a);       s1: =s2+' '+s1;       writeln(s1); end.program three_b; uses crt; var s1,s2: string;     p,a: integer; begin       s1: ='люблю цябе, мой родны кут';       writeln(s1);       s2: ='мой родны кут';       p: =pos(s2,s1);       a: =length(s2);       delete(s1,p,a);       delete(s1,length(s2)-2,2);       s1: =s2+','+s1;       writeln(s1); end. program four_a; uses crt; var s1,s2,s3: string;     p,k,i,l,m: integer; begin       s1: ='минск столица беларуси';       writeln(s1);       k: =0;       for i: =1 to length(s1) do           if copy(s1,i,1)=' ' then           begin               inc(k);               l: =i;           end;       p: =pos(' ',s1);       s2: =copy(s1,1,p-1);       s3: =copy(s1,l+1,length(s1)-l+1);       k: =length(s2);       m: =length(s3);       delete(s1,1,k);       delete(s1,l-p+2,m);       s1: =s3+s1+s2;       writeln(s1); end. program four_b; uses crt; var s1,s2,s3: string;     p,k,i,l,m: integer; begin       s1: =' беларусь ты моя синеокая';       writeln(s1);       k: =0;       for i: =1 to length(s1) do           if copy(s1,i,1)=' ' then           begin               inc(k);               l: =i;           end;       p: =pos(' ',s1);       s2: =copy(s1,1,p-1);       s3: =copy(s1,l+1,length(s1)-l+1);       k: =length(s2);       m: =length(s3);       delete(s1,1,k);       delete(s1,l-p+2,m);       s1: =s3+s1+s2;       writeln(s1); end. program five_a; uses crt; var s1: string;     x: integer; begin       readln(s1);       for x: =1 to length(s1) do           if copy(s1,x,1)=' ' then           begin               delete(s1,x,1);               insert('_',s1,x);           end;       writeln(s1); end. program five_b; uses crt; var s1: string;     s2: char;     x,y: integer; begin       readln(s1);       y: =0;       for x: =1 to length(s1) do           begin               s2: =s1[x];               if (s2< > ' ') and ((ord(s2)< 48) or (ord(s2)> 57)) then inc(y);           end;       writeln(y); end. program five_c; uses crt; var s1: string;     s2: char;     x,y: integer; begin       readln(s1);       y: =0;       for x: =1 to length(s1) do           begin               s2: =s1[x];               if (ord(s2)< =90) and (ord(s2)> =65) then inc(y);               if (ord(s2)> =192) and (ord(s2)< =223) then inc(y);           end;       writeln(y); end.

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

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

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

Caktus Image

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

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

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

    Проект находиться на стадии тестирования и все услуги бесплатны.
  • Могу ли я использовать otvet5GPT в школе?

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

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

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

GTP TOP NEWS