На автобусных билетах указываются их номера. номера всех билетов всегда записываются при одного и того же количества цифр, при этом число используемых цифр чётно. при необходимости числа дополняются ведущими нулями. к примеру, если для записи используют 4 цифры, то 514 будет записано как 0514 . билеты отпечатаны на лентах, билеты на каждой ленте нумеруются подряд числами от до . счастливым считается тот билет, у которого сумма цифр первой половины равна сумме цифр второй половины, например, билеты 1001 и 123051 счастливые, а 7778 и 39 – нет.

сегодня дима зашел в автобус, и кондуктор выдал ему билет с номером n . поскольку диме ехать достаточно долго, а заняться чем-нибудь надо, он стал думать, какой номер будет иметь следующий счастливый билет, выданный из той же ленты, что и димин билет. если в текущей ленте не осталось счастливых билетов, диму интересует номер минимального счастливого билета из новой ленты.

входные данные

в первой и единственной строке входного файла содержится номер диминого билета n , записанный с ведущими нулями. количество цифр в записи числа n не превосходит 100 000 и чётно.

выходные данные

программа должна вывести номер следующего счастливого билета из текущей ленты в таком же формате. если такого билета не существует, надо вывести номер минимального счастливого билета из новой ленты. в выводе не должно быть пробелов, пустых строк в начале вывода.

👇

Увидеть ответ

Ответ:

krioss

18.02.2020

USES CRT;

VAR m1,m2,n,n1,n2,n3,n4,n5,n6,s1,s2:LongInt;

BEGIN

ClrScr;

WriteLn('Vvedite nomer bileta: ');

ReadLn(n);

m1:=n div 1000;

n1:=m1 div 100;

n2:=m1 mod 10;

n3:=(m1-n1*100-n2) div 10;

s1:=n1+n2+n3;

m2:=n mod 1000;

n4:=m2 div 100;

n5:=m2 mod 10;

n6:=(m2-n4*100-n5) div 10;

s2:=n4+n5+n6;

if s1=s2 then WriteLn('Bilet schaslivyi')

else WriteLn('Bilet ne schaslivyi');

ReadLn

END.

4,8(99 оценок)

Открыть все ответы

Ответ:

utyak717

18.02.2020

ответ:

взаимосвязь со вторым законом ньютона

вспомним закон ньютона:

равнодействующая сила может быть равна нулю в том случае, когда одна сила компенсируется другой, такой же силой, но противоположной по направлению. в этом случае тело находится в покое или движется равномерно.

сила архимеда уравновешивается силой тяжести, тело равномерно перемещается в жидкости вниз.

сила тяжести уравновешивается силой . книга покоится

если равнодействующая сила не равна нулю, то тело движется равноускоренно. собственно именно эта сила является причиной неравномерного движения. направление равнодействующей силы всегда совпадает по направлению с вектором ускорения.

когда требуется изобразить силы, действующие на тело, при этом тело движется равноускоренно, значит в направлении ускорения действующая сила длиннее противоположной. если тело движется равномерно или покоится длина векторов сил одинаковая.

главное запомнить

1) если тело покоится или движется равномерно, то равнодействующая сила равна нулю и ускорение равно нулю;

2) если тело движется равноускоренно, значит равнодействующая сила не нулевая;

3) направление вектора равнодействующей силы всегда совпадает с направлением ускорения;

4) уметь записывать уравнения проекций действующих на тело сил

сила реакции опоры (сила, направленная вверх) длиннее силы тяжести, так как шарик движется по окружности, центростремительное ускорение направлено вверх

сила реакции опоры (сила, направленная вверх) короче силы тяжести, так как шарик движется по окружности, центростремительное ускорение направлено вниз. вектор силы тяжести, направленный вниз, длиннее.

нахождение равнодействующей силы

для того, чтобы найти равнодействующую силу, необходимо: во-первых, верно обозначить все силы, действующие на тело; затем изобразить координатные оси, выбрать их направления; на третьем шаге необходимо определить проекции векторов на оси; записать уравнения. кратко: 1) обозначить силы; 2) выбрать оси, их направления; 3) найти проекции сил на оси; 4) записать уравнения.

как записать уравнения? если в некотором направлении тело двигается равномерно или покоится, то сумма (с учетом знаков) проекций сил равна нулю. если в некотором направлении тело движется равноускоренно, то сумма проекций сил равна произведению массы на ускорение, согласно второму закону ньютона.

4,7(94 оценок)

Ответ:

ntaskaeva2

18.02.2020

Type
mass = array[1..10, 1..10] of real;

var
a, b, c: mass;
n, m, i, j, n1, m1: integer;

procedure MatrA(var a: mass);
var
i, j: integer;
begin
for i := 1 to n do
    for j := 1 to m do
    begin
      writeln('a[', i, ',', j, ']: ');
      readln(a[i, j])
    end
end;

procedure MatrB(var b: mass);
var
i, j: integer;
begin
for i := 1 to n1 do
    for j := 1 to m1 do
    begin
      writeln('b[', i, ',', j, ']: ');
      readln(b[i, j])
    end
end;

procedure Sum(a, b: mass; var c: mass);
var
i, j: integer;
begin
for i := 1 to n do
    for j := 1 to m do
      c[i, j] := a[i, j] + b[i, j];
end;

begin
writeln('Введите n,m матрицы A');
readln(n, m);
MatrA(a);
writeln('Введите n,m матрицы B');
readln(n1, m1);
MatrB(b);
if (n1 <> n) and (m1 <> m) then
    writeln('Матрицы сложить нельзя')
else begin
    Sum(a, b, c);
    writeln('A+B');
    for i := 1 to n do
    begin
      for j := 1 to m do
        write(c[i, j]:1:3, ' ');
      writeln
    end
end;
readln;
end.

4,7(39 оценок)

Это интересно:

Образование-и-коммуникации

25.03.2023

10 советов, как раскрыть свой талант и стать успешным...

Взаимоотношения

07.02.2020

Как привести девушку домой на первом свидании: советы и рекомендации...

Хобби-и-рукоделие

18.04.2021

Как сшить жилетку: подробный мастер-класс...

Мир-работы