#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;
}
<u>Пример:</u>
123456789
124578
#include <bits/stdc++.h>
using namespace std;
int Max_count(const vector<int> &a )
{
int result = 0;
for (int i = 0; i < a.size();++i )
if (a[i] == *max_element(a.begin(), a.end()))
result ++;
return result;
}
int main()
{
int n;
cin >> n;
vector<int> a(n);
for (int i = 0; i < n; ++i)
cin >> a[i];
cout << Max_count(a);
}
Var a,b,c:integer;
begin
readln(a, b);
c:=a+b;
writeln(c);
end.
512*32*64=1048576 символов
1048576*16=16 777 216 бит (информационный объём файла)
1,44*1024*1024*8=12 079 595, 52 бит объём дискеты в битах
16 777 216/12 079 595,52=1,38 - нужно две дискеты
Var
s,ss:string;
i:integer;
begin
Write('Введите строку: '); Readln(s);
for i:=Length(s) downto 1 do
begin ss:=s[i]+s[i]; Insert(ss,s,i) end;
Writeln('Результат: ',s)
end.
Пример решения
Введите строку: Я умею писать программы!
Результат: ЯЯЯ ууумммеееююю пппииисссааатттььь пппрррооогггррраааммммммыыы!!!
var
s:string;
i:integer;
begin
Write('Введите слово: '); Readln(s);
for i:=Length(s) downto 1 do Insert(' ',s,i);
Writeln('Результат: ',s)
end.
Пример решения
Введите слово: Паскаль
Результат: П а с к а л ь
var
s1,s2,s3:string;
i:integer;
begin
Write('Введите первое слово: '); Readln(s1);
Write('Введите второе слово той же длины: '); Readln(s2);
s3:='';
for i:=1 to Length(s1) do s3:=s3+s1[i]+s2[i];
Writeln('Результат: ',s3)
end.
Пример решения
Введите первое слово: Корова
Введите второе слово той же длины: собака
Результат: Ксоорбоавкаа