Некоторый алгоритм из одной цепочки символов получает новую цепочку следующим образом. Сначала вычисляется длина исходной цепочки символов; если она нечётна, то из середины цепочки символов удаляется символ, а если чётна, то в конец цепочки добавляется буква К. В полученной цепочке символов каждая буква заменяется буквой, следующей за ней в русском алфавите (А – на Б, Б – на В и т. д., а Я – на А). Получившаяся таким образом цепочка является результатом работы описанного алгоритма.
Например, если исходной была цепочка АВС, то результатом работы алгоритма будет цепочка БТ, а если исходной была цепочка КЦ, то результатом работы алгоритма будет цепочка ЛЧЛ.
Дана цепочка символов МАРТ. Какая цепочка символов получится, если к данной цепочке применить описанный алгоритм дважды (т. е. применить алгоритм к данной цепочке, а затем к результату вновь применить алгоритм)?
Русский алфавит:

!

#include <iostream>  //подключаем библиотеки

using namespace std; //пространство имён

int main() {

 

setlocale(LC_ALL, "Russian");

 

int tableInt;  //последовательность

int x;   //икс :)

bool ZaB = true;  //бул для красоты

 

cout << "Введите переменную X: "; cin >> x;  //просим X

cout << "Введите последовательность через пробел: ";  //последовательность

 

while(cin >> tableInt)   //цикл

{

 if(ZaB)  //для красоты

 {

  cout << "Результат: ";

  ZaB = false;

 }

 if(tableInt != 0 && tableInt > x)  //вывод того, что больше

 {

  cout << tableInt << " ";  //если ноль, то конец!

 }else if(tableInt == 0)

 {

  break;

 }

}

 

return 0; //возращаем ничего

}

1. 
var 
n,i,k,sum,g:integer;

begin
readln(n);
g:=n;
while n<>0 do begin
 g:= g div 10;
 k +=1;
end;

for i:=1 to k do begin
g:= n mod 10;
sum:= sum + g;
n:=n div 10;
end;
if sum> 10 then
writeln('верно')
else
('неверно');
end.

2.
var 
n,i,k,p,h,g:integer;

begin
readln(n);
g:=n;
while n<>0 do begin
 g:= g div 10;
 k +=1;
end;
p:=n mod 10;
n:=n div 10;
for i:=1 to k-1do begin
g:= n mod 10;
if g = p then
 h += 1;
n:=n div 10;
end;
writeln(h);
end.

3.
const
n=10;
var

a:array[1..n]of integer;
i,sum:integer;

begin
a[n]:=0;
for i:=1 to 9 do
readln(a[i]);

for i:=1 to n do 
 sum:=sum+a[i];
writeln(sum);
end.

4.
var

n:integer;

begin

readln(n);

while n<>0 do begin
n:=n div 10;
k += 1;
end;
if k = 4 then
writeln('число четырехзначное')
else
writeln('число не четырехзначное');
end.

5.
var

a:array[1..10]of integer;
i:byte;

begin

for i:=1 to 10 do
readln(a[i]);

for i:=1 to 10 do begin
 if a[i] = 2 then
writeln('да есть');
break;
end;
end.