• Автомат получает на вход четырёхзначное десятичное число. По полученному числу строится новое десятичное число по следующим

Ответы 1

  • Для вычисления можно составить программу на Pascal:

    var n, n12, n34, i, j, x: integer;

    begin

     

    for n := 1000 to 999 do begin

    n12 := (n div 1000) + (n div 100 mod 10);

    n34 := (n div 10 mod 10) + (n mod 10);

    i:=1;

    while (n34 div 10)>0 do begin

    i := i + 1;

    n34 := n34 div 10;

    end;

    for j := 1 to i do

    n12 := n12 * 10;

    if n12 + n34 = 1915 then x := x + 1 else if  n12 + n34 = 10 then x := x + 1 else 

    if n12 + n34 = 110 then x := x + 1 else if n12 + n34 = 1516 then x := x + 1 else

    if n12 + n34 = 1211 then x := x + 1 else if n12 + n34 = 316 then x := x + 1 else

    if n12 + n34 = 1519 then x := x + 1 else if n12 + n34 = 116 then x := x + 1 else

    if n12 + n34 = 1515 then x := x + 1;

    end;

    writeln(x);

    end.

    Ответ (с выхода программы): 4.

  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years