//PascalABC.NET версия 3.2, сборка 1389
//Если программа не запускается, то обновите версию
type
s_b = record
s_d: array[1..31, 0..9]of integer;
s_o: array [0..9] of string;
d_m: array [1..31] of byte;
end;
var
r, d: s_b;
begin
r.s_o[0] := 'еда';
r.s_o[1] := 'zilie';
r.s_o[2] := 'oby4';
d.s_o[1] := 'myz';
d.s_o[2] := 'zina';
for var a := 1 to 31 do
for var b := 0 to 9 do
begin
r.s_d[a, b] := 0;
r.d_m[a] := a;
d.s_d[a, b] := 0;
d.d_m[a] := a;
end;
Println(r);
Println(d);
end.
покороче, убрано лишнее
using System;
using System.Collections.Generic;
namespace Num
{
class Program
{
static void Main(string[] args)
{
Console.WriteLine("Введите количество элементов: ");
int N = Int32.Parse(Console.ReadLine());
Console.WriteLine("Введите элементы через enter: ");
List<int> numbers = new List<int>();
for(int i = 0; i < N; ++i)
{
int temp = Int32.Parse(Console.ReadLine());
numbers.Add(temp);
}
Console.WriteLine("Элемены значения которых совпадают с их индексом:");
for (int i = 0; i < N; ++i)
{
if (numbers[i] == i)
Console.Write(numbers[i] + " ");
}
Console.WriteLine();
Console.ReadKey();
}
}
}
Анализируем задание.
1. Сумма кубов старшего и младшего разрядов и куб суммы старшего и младшего разрядов. Смотрим в пример, нам дано число 51. Сумма кубов это 5^3 + 1^3 = 125 + 1 = 126. Куб суммы это (5+1)^3 = 6^3 = 216. Все верно.
2. В порядке невозрастания - это значит, что в порядке убывания, то есть сначала мы записываем большее число (в примере 216), а потом меньшее (126). Получается число 216126.
Теперь анализируем данные нам числа.
10 у нас получиться не может, т.к. 1 и 0 получиться в результате вычислений (куб суммы и сумма кубов) не могут.
82. В результате вычислений должно получиться 8 и 2. Замечаем, что 8 - это 2^3, то есть куб суммы может быть равен 2.
Давайте действительно предположим, что куб суммы может быть равен 2. Сразу исключается вариант (0+2)^3, т.к. число 02, то есть 2, не двузначное. Исключается и вариант (2+0)^3, т.к сумма кубов числа 20 равна 2^3 + 0^3 = 8, а куб суммы равен (2+0)^3 = 2^3 = 8. Получается число 88, а не 82. Рассматриваем число 11. (1+1)^3 = 2^3 = 8. 1^3 + 1^3 = 1+1 = 2. Записываем в порядке убывания и получаем число 82.
3. 28 получиться не может, т.к. 2 и 8 записаны в порядке возрастания, а 28 и 0 невозможно, т.к. в результате вычислений такие числа не получатся.
4. 927. Сразу понятно, что числа 9 и 27 не могут получиться в результате вычислений (они расположены в порядке возрастания). Тогда берем 92 и 7. Нет таких чисел, которые в кубе давали бы 92 и 7, поэтому это число не может получиться в результате преобразований. (Если бы хотя бы одно число являлось кубом, тогда можно было бы поразмыслить)
5. 6415. Можем взять числа 64 и 15. Расположены в порядке неубывания. 64 - это куб 4, значит, куб суммы должен быть равен 64. Замечаем, что мы в расчет взять можем только числа 4, 3, 2 и 1, кубы которых равны 64, 27, 8 и 1 соответственно, но не получится никак сделать из них 15, поэтому пара 64 и 15 не подходит. 641 и 5 тоже не подходит, так как ни одного числа с такими кубами нет.
6. 216126 подходит, см пример в условии
7. 512512. Ну сразу понятно, что 512 - это куб 8. Работаем :)
Сумма кубов должна быть равна 512 и куб суммы тоже должен быть равен 512. Нет таких кубов, которые давали бы нам 512 в сумме, но мы видим, что числа одинаковые, потому можем сделать одну цифру в числе равной 0. 80 - идеальное число. (8+0)^3 = 8^3 = 512. 8^3 + 0^3 = 8^3 = 512. Получается 512512.
8. 62550. 6 и 2550; 62 и 550 - не подходят, т.к. расположены в порядке возрастания. Берем 625 и 50. Нет куба ни 625, ни 6255, ни 50, ни сумма никаких кубов не сможет дать нам такие числа. Не подходит.
Итог: могут получиться числа: 82, 216126, 512512
Ответ: 3
Мой мозг..
Ошибка:
<span>CharMas1=array[A..Z] of integer;
Здесь используются неизвестное имя A и Z,которые,предварительно должны быть описаны в const,либо в var
</span>
