#include <bits/stdc++.h>

using namespace std;

int main()
{
 string s;
 cin >> s;
 int cnt = 0;
 for (int i = 0;i < s.length();++i)
 {
 cnt++;
 if (cnt%3 == 0)
 s.erase(i,1),i--;

 }
 cout << s;
}

Пример:
123456789
124578

0 0

4 года назад

Помогите! Срочно!!! 1) Дан массив отсорти. в порядке возрастания 2) Все эл-ты, кратных 10 заменить на 0. 3) Дан массив вывести 3

Michaelmm

// PascalABC.NET 3.3.5, сборка 1636 от 10.03.2018
// Внимание! Если программа не работает, обновите версию!

begin
var n:=ReadInteger('n=');
var a:=ArrRandom(n,-99,99); a.Println;
a.OrderBy(t->t).Println; // 1
var b:=Copy(a); b.Transform(t->t mod 10=0?0:t); b.Println; // 2
Range(2,n-1,3).Select(i->a[i]).Println; // 3
Writeln('Элементов после max: ',n-a.IndexMax-1) // 4
end.

Пример
n= 20
8 37 88 31 -15 -26 -34 24 -31 -31 -91 -40 -49 -91 45 -30 -79 -78 -2 39
-91 -91 -79 -78 -49 -40 -34 -31 -31 -30 -26 -15 -2 8 24 31 37 39 45 88
8 37 88 31 -15 -26 -34 24 -31 -31 -91 0 -49 -91 45 0 -79 -78 -2 39
88 -26 -31 -40 45 -78
Элементов после max: 17

0 0

4 года назад

Прочитать ещё 2 ответа

Запишите в виде паскаля. 1) y=√a-c²/sin(x-a²) 2) y=√c/x-a²+3π 3) y=3b-a/8(c+2)-√5b-8c+3π 4) p=√(x²-x¹)²+(y²-y¹)²

Николай44

1)y:=sqrt(a)-sqr(c)/sin(x-sqr(a))
2)y:=sqrt(c)/x-sqr(a)+3*pi
3)y:=3*b-1/8*(c+2)-sqrt(5*b)-8*c+3*pi
4)p:=sqrt(sqr(sqr(x)-x)+sqr(sqr(y)-y))

0 0

4 года назад

Найди значение выражения. (0∨0)∨(0∨0)

Каюпова Рабига Ел... [49]

Тут нечего искать. Из нулей при дизъюнкции ничего не может получиться, кроме нуля. Это как если бы в обычной алгебре складывать нули.

0 0

4 года назад

Прочитать ещё 2 ответа