Г, ж, а, в, б, д, е помоему так
Var a,b,s1,s2,s3:integer;
begin
readln(a,b);
s1:=a div 100 + b div 100;
s2:=(a div 10 mod 10)+(b div 10 mod 10);
s3:=a mod 10 + b mod 10;
writeln('s1 = ',s1,' s2 = ',s2,' s3 = ',s3);
if (s1>s2) and (s2>s3)
then writeln('Последовательность убывающая')
else writeln('Последовательность неубывающая');
end.
Пример:
972 761
s1 = 16 s2 = 13 s3 = 3
Последовательность убывающая
Разведчик N, передал разведчику M шифровку.
Соотвественно первый пунк - Передача.
Разведчик M расшифровывает шифровку, это называется "декодирование".
Ответ: 2.
=СТЕПЕНЬ(A1; 3)-7-СТЕПЕНЬ(SIN(A1); 2)
Так, только А1 как Х взято:)