Автомат получает на вход четырёхзначное число. Из этого числа строится новое число по следующим правилам.
1. Вычисляются три числа—сумма первой и второй цифр, сумма второй и третьей цифр и сумма третьей и четвёртой цифр.
2. Полученные три числа записываются друг за другом в произвольном порядке (без разделителей).
Пример. Исходное четырёхзначное число: 7348. Сумма первой и второй цифр — 10. Сумма второй и третьей цифр — 7. Сумма третьей и четвёртой цифр—12. Результат: 12107.
Укажите наименьшее число, в результате обработки которого автомат выдаст число 16119.
248
283
Ответы на вопрос:
Var i,j,j3,k,k3,n: longint; c: real; begin // константа, 1/корень кубический из двух c: =1.0/power(2,1.0/3.0); writeln('n=? '); readln(n); // основной цикл, пробуем разбивать i на сумму кубов for i: =1 to n do begin // первое число, от 1 до корня кубического из (i/2) for j: =1 to floor(power(i,1.0/3.0)*c) do begin // куб первого числа j3: =j*j*j; // куб второго числа, или не куб, позже проверим k3: =i-j3; // само второе число k: =round(power(k3,1.0/3.0)); // проверка, является ли k3 кубическим if ((k3 = k*k*k) and (k> 0)) then // да, к3 - куб : ) writeln('i=',i,' j=',j,' k=',k); end; end; end.
Популярно: Информатика
-
Zenkinadasha12.03.2021 07:45
-
austry133711.12.2022 12:58
-
HeeeeelpPlz18.06.2023 22:03
-
нурик05107.12.2020 01:38
-
ruslan42727.02.2021 17:41
-
voobonaolor07.01.2021 12:28
-
боб6811.12.2022 01:23
-
его1824.05.2023 10:08
-
lol103912.01.2020 23:11
-
Мыркпвы15.01.2021 16:26