Автомат получает на вход четырёхзначное десятичное число, в котором есть как чётные, так и нечётные - id679755020211020 от Auyrey03 20.10.2021 13:33

Question

Информатика: Автомат получает на вход четырёхзначное десятичное число, в котором есть как чётные, так и нечётные цифры. по полученному числу строится новое десятичное число по следующим правилам. 1. вычисляются два числа – сумма чётных цифр и сумма нечётных цифр заданного числа. 2. полученные два числа записываются друг за другом в порядке неубывания (без разделителей). пример. исходное число: 2177. сумма чётных цифр – 2, сумма нечётных цифр – 15. результат: 215. определите, сколько из ниже чисел могут получиться

Auyrey03 · Accepted Answer

// PascalABC.NET 3.3, сборка 1583 от 25.11.2017 // Внимание! Если программа не работает, обновите версию! procedure FillRandom(var P:array of integer; a,b:integer); begin   var (k,n):=(0,P.Length);   repeat       P:=ArrRandom(n,a,b);       k+=1;     until P.Distinct.Count=n;   Writeln( Сделано ,k, генераций массива ) end; begin   var n:=ReadInteger( n= );   var (a,b):=ReadInteger2( Укажите интервал значений элементов: );   if b-a+1 n then Writeln( Задание выполнить невозможно )   else begin    ...

MOGZ ответил