Автомат получает на вход четырёхзначное десятичное число. По полученному числу строится новое десятичное число по следующим правилам. 1. Вычисляются два числа — сумма двух старших разрядов, а также сумма двух младших разрядов заданного числа.

2. Полученные два числа записываются друг за другом в порядке невозрастания (без разделителей).

Пример. Исходное число: 1277. Поразрядные суммы: 3, 14. Результат: 143.

Определите, сколько из приведённых ниже чисел могут получиться в результате работы автомата. В ответе запишите только количество чисел.

1616 169 163 1916 1619 316 916 116

👇

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

Ответ:

AbraevAidar

10.11.2020

ответ: Проанализируем каждое число.

Число 1616 может быть результатом работы автомата, в этом случае исходное число могло быть 888.

Число 169 может быть результатом работы автомата, в этом случае исходное число могло быть 881.

Число 163 не может быть результатом работы автомата, поскольку в таком случае сумма среднего и старшего разрядов должна быть 16, а младшего и среднего — 3.

Число 1916 не может быть результатом работы автомата, поскольку нет таких цифр, сумма которых равна 19.

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

Число 316 не может быть результатом работы автомата, поскольку числа записываются в порядке невозрастания, а число 31 невозможно получить сложением двух цифр.

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

Число 116 может быть результатом работы автомата,в этом случае исходное число могло быть 560.

ответ: 3.

Объяснение:

4,4(68 оценок)

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

Ответ:

Tusovik

10.11.2020

Так как язык не указан, приведу пример на SWI-Prolog.

Код:

read_int(Int) :- read(Int), integer(Int).split_int_by_numbers(0, []) :- !.split_int_by_numbers(N, [Number|Ints]) :- Number is mod(N, 10), RestN is div(N, 10), split_int_by_numbers(RestN, Ints).test_to_div(_, []).test_to_div(N, [Number|Ints]) :- mod(N, Number) =:= 0, test_to_div(N, Ints). test(Int) :- split_int_by_numbers(Int, Numbers), test_to_div(Int, Numbers), write(Int), write(" - Yes!"), nl.test(Int) :- write(Int), write(" - No!"), nl.?- read_int(Int), test(Int).
Напишите программу: С клавиатуры вводится трёхзначное число (число десятков и число единиц не равна

Напишите программу: С клавиатуры вводится трёхзначное число (число десятков и число единиц не равна

4,6(3 оценок)

Ответ:

allonso

10.11.2020

1. В "реальном мире" это решается примерно так:

// PascalABC.NET 3.1, сборка 1198 от 11.03.2016
begin
var a:=ArrRandom(ReadInteger('n='),0,2); a.Println;
a.Sorted.Println
end.

Тестовое решение:
n= 15
1 2 0 2 2 0 2 0 2 0 0 1 0 0 2
0 0 0 0 0 0 0 1 1 2 2 2 2 2 2

2. Но, поскольку считается, что школьникам больше заняться нечем, их заставляют писать примерно в таком стиле (и время займет, и ощибок понаделают):

// PascalABC.NET 3.1, сборка 1198 от 11.03.2016
const
nn=100;
var
i,j,n,t:integer;
a:array[1..nn] of integer;
begin
Write('n='); Read(n);
Randomize;
for i:=1 to n do begin
    a[i]:=Random(3);
    Write(a[i],' ')
    end;
Writeln;
for i:=1 to n-1 do
    for j:=1 to n-1 do
      if a[j]>a[j+1] then begin
        t:=a[j]; a[j]:=a[j+1]; a[j+1]:=t
        end;
for i:=1 to n do Write(a[i],' ');
Writeln;
end.

Тестовое решение:
n=15
0 1 1 0 2 1 0 2 1 2 1 0 0 2 0
0 0 0 0 0 0 1 1 1 1 1 2 2 2 2

4,5(50 оценок)

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

Здоровье

02.11.2021

Как распознать разрушение зубной эмали...

Дом-и-сад

10.01.2021

Как избавиться от беспорядка на кухонной полке: Правильный способ сделать подкладку...

Здоровье

28.05.2020

Как быстро набрать вес (для женщины): советы и рекомендации...

Семейная-жизнь