Регистрация
roseq78
17.04.2021 10:09
Информатика
Есть ответ 👍

Дана строка. если ее длина есть число нечетное, то удалить ее средний символ. в противном случае после второго символа вставить строку 'www'

156
404
Посмотреть ответы 3

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

Маша10578
Маша10578
4,6(69 оценок)
Отдел +; использует цепь из ""; пер   строка, память: ряд 100 из знак;   сч: цел; указ   если чет(длина(строка)) то     память[0] : = строка[0];     память[1] : = 0x;     цепь.добавить(память, "www");     от сч : = 1 до длина(строка) - 1 вып       память[сч + 3] : = строка[сч]     кон;     память[длина(строка) + 3] : = 0x   иначе     от сч : = 0 до длина(строка) делить 2 - 1  вып       память[сч] : = строка[сч]     кон;     от сч : = длина(строка) делить 2 + 1 до длина(строка) - 1 вып       память[сч - 1] : = строка[сч]     кон;     память[длина(строка) - 1] : = 0x   кон кон .
ludvig9
ludvig9
4,5(78 оценок)
Var    s,a: string;     p: integer; begin   write('введите строку: ');   readln (s);   a: ='www';   p: =length(s) div 2 +1;   if length(s) mod 2 < > 0      then delete(s,p,1)     else insert(a,s,3);   writeln(s); end. 1: введите строку: 1234567 123567 2: введите строку: 123456 12
Книжнаябабочка
Книжнаябабочка
4,7(84 оценок)

var a: array[1..100] of integer;

    i,n,m,k: integer;

begin

    write('кол-во элементов массива: '); readln(n);

    for i: =1 to n do

    begin

      write(i,' элемент = ');

      readln(a[i]);

    end;

    writeln('введённый массив');

    for i: =1 to n do

    write(a[i]: 5);

    writeln;

    write('заданное число: '); readln(m);

    for i: =1 to n do

    if a[i]> m then inc(k);

    writeln('элементов > ',m,' = ',k);

    readln;

end.

надеюсь правильно, удачи))

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