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
Последовательность убывающая
const
N = 10;
Elem = 666;
var
a: array [1..N+1] of integer;
K: integer;
begin
for var i:=1 to N do
a[i] := Random(100);
writeln('Элементы массива a: ');
for var i:=1 to N do
write(a[i],' ');
writeln;
K := Random(1,N);
for var i:=N downto K do
a[i+1] := a[i];
a[K] := 666;
writeln('После вставки элемента ',Elem,' в позицию ',K,':');
for var i:=1 to N+1 do
write(a[i],' ');
writel
Вот код программы для этой прогрессии на С# и скриншот с результатом.
float ss = 0;
float s = 1;
Console.WriteLine("Введите n");
float n = Convert.ToInt16 ( Console.ReadLine());
Console.WriteLine("---------------------------");
for (float i = 2; i <= n; i++)
{ ss = s; s -= (1 / i); Console.WriteLine(ss + "-" + 1 / i + "="+s+"\n\r"); }
Console.WriteLine("---------------------------");
Console.WriteLine("Конечный результат s = " + s);
<span> Console.ReadLine();</span>
От 11 до 55 = 55-11+1 = 42 варианта
Перестановки = 42^[5] (факториальная степень)= 42 * 41 * 40 * 39 * 38 = 102 080 160