1автомат получает на вход трехзначное десятичное число. по полученном числу стрится новое десятичное числу по следующим правилам. 1 вычисляются два числа- сумма старшего и с среднего разрядов а также сумма среднего и младшего разрядов заданного числа. 2 полученые два числа записываются друг задругом в порядке невозростания(без разделителей). пример. исходное число: 277. подразрядные суммы: 9, 14. результат: 149. определите сколько из ниже чисел могут получиться в результате работы автомата 1616 169 163 1916 1619 316 916 116 в ответе запишите только количество чисел

👇

Ответ:

karas14

23.04.2022

1. Две рядом стоящие цифры могут дать максимум 18 (сочетание 99), поэтому все четырехзначные варианты, содержащие пары больше 18 отбрасываем (1916,1619).
2. Результат 1616 может получиться только как комбинация 8+8, т.е исходным было число 888. Найдено первое число.
3. Результат 169 может быть образован из числа 881, это второе число.
4. Результат 163 никак не может быть получен, потому что 16 - это 9+7, 8+8 или 7+9, но даже 7, сложенное с 0 даст уже 7, а не 3.
5. Результат 316 по той же причине не может быть получен - число 3 это сумма 1+2, но даже 2+9 не даст 16.
6. Результат 916 может быть получен из 188, но только как комбинация 9,16, что нарушает порядок невозрастания. Бракуем.
7. Результат 116 может быть получен из 651, это третье число.
ответ: 3 числа.

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

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

Ответ:

jvhhvcx

23.04.2022

Const
n=8;
var
aNam, aFam, aDat: array[1..n] of string;
i: integer;

begin
aNam[1]:='Олег'; aFam[1]:='Бубенков'; aDat[1]:='1993';
aNam[2]:='Игорь'; aFam[2]:='Бросов'; aDat[2]:='1991';
aNam[3]:='Тимур'; aFam[3]:='Наружный'; aDat[3]:='1961';
aNam[4]:='Анастасия'; aFam[4]:='Боброва'; aDat[4]:='1985';
aNam[5]:='Михаил'; aFam[5]:='Тапаров'; aDat[5]:='1957';
aNam[6]:='Евгений'; aFam[6]:='Костарева'; aDat[6]:='1992';
aNam[7]:='Мария'; aFam[7]:='Никитин'; aDat[7]:='1977';
aNam[8]:='Ксения'; aFam[8]:='Бабенкова'; aDat[8]:='1978';
writeln('Лица, чьи фамилии начинаются на букву "Б"');
for i := 1 to n do
    if aFam[i][1] = 'Б' then
      writeln(aNam[i],' ',aFam[i], ' (', aDat[i], ')')
end.

тестовый прогон:

Лица, чьи фамилии начинаются на букву "Б"
Олег Бубенков (1993)
Игорь Бросов (1991)
Анастасия Боброва (1985)
Ксения Бабенкова (1978)

Возможна также более "современная" запись программы

const
n = 8;

type
tP = record
    Nam: string;
    Fam: string;
    Dat: string
end;

var
M: array[1..n] of tP;
i: integer;

begin
with M[1] do begin Nam := 'Олег'; Fam := 'Бубенков'; Dat := '1993' end;
with M[2] do begin Nam := 'Игорь'; Fam := 'Бросов'; Dat := '1991' end;
with M[3] do begin Nam := 'Тимур'; Fam := 'Наружный'; Dat := '1961' end;
with M[4] do begin Nam := 'Анастасия'; Fam := 'Боброва'; Dat := '1985' end;
with M[5] do begin Nam := 'Михаил'; Fam := 'Тапаров'; Dat := '1957' end;
with M[6] do begin Nam := 'Евгений'; Fam := 'Костарева'; Dat := '1992' end;
with M[7] do begin Nam := 'Мария'; Fam := 'Никитин'; Dat := '1977' end;
with M[8] do begin Nam := 'Ксения'; Fam := 'Бабенкова'; Dat := '1978' end;
writeln('Лица, чьи фамилии начинаются на букву "Б"');
for i := 1 to n do
    With M[i] do begin
      if Fam[1] = 'Б' then
        writeln(Nam, ' ', Fam, ' (', Dat, ')')
    end
end.

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

Ответ: