Var
s:string;
n:integer;
begin
Readln(s);
n:=Length(s);
if Odd(n) then Delete(s,1,2)
else Insert('www',s,n div 2+1);
Writeln(s)
end.
#include <bits/stdc++.h>
using namespace std;
int a[100001];int main(){ int n, c = 0; cin >> n; for(int i = 1; i <= n; ++i) { cin >> a[i]; } for(int i = 1; i <= n; ++i) { if(a[i] < a[i + 1]) { if(i != n) { c++; } } } if(c == n - 1) { cout << "YES"; } else cout << "NO"; //cout << "Hello world!" << endl; return 0;}//sadasdasd
Алг массив
нач
цел N = 10
целтаб mas[1:N]
цел i
вывод "Исходный массив: "
нц для i от 1 до N
mas[i] := irnd(101,1000)
вывод mas[i], " "
кц
вывод нс
вывод "Числа, кратные 3 и 5: "
нц для i от 1 до N)
если mod(mas[i],3)=0 и mod(mas[i],5)=0 то
вывод mas[i], " "
все
кц
кон