Сделайте таблицу к этой задачи Расстояние от Юпитера до Солнца 778 млн.км. Расстояние от Урана до Солнца 2 870 млн.км. Диаметр планеты Юпитер 142 800 км. Диаметр планеты Сатурн 120 860 км. Расстояние от Сатурна до Солнца 1 427 млн.км. Диаметр планеты Уран 52 000 км. Расстояние от Земли до Солнца 150 млн.км. Расстояние от Плутона до Солнца 5 950 млн.км. Диаметр планеты Меркурий 4 880 км. Расстояние от Нептуна до Солнца 4 497 млн.км. Время обращения Сатурна вокруг Солнца 29,5 лет. Диаметр планеты Плутон 3 000 км. Расстояние от Марса до Солнца 228 млн.км. Диаметр планеты Нептун 48 400 км. Время обращения Урана вокруг Солнца 84 года. Время обращения Нептуна вокруг Солнца 165 лет. Время обращения Юпитера вокруг Солнца 12 лет. Расстояние от Меркурия до Солнца 58 млн.км. Время обращения Земли вокруг Солнца 365 дней. Время обращения Меркурия вокруг Солнца 88 дней. Диаметр планеты Марс 6 790 км. Время обращения Венеры вокруг Солнца 225 дней. Диаметр планеты Земля 12 756 км. Диаметр планеты Венера 12 100 км. Время обращения Плутона вокруг Солнца 248 лет. Расстояние от Венеры до Солнца 108 млн.км. Время обращения Марса вокруг Солнца 687 дней.
6^19 в шестиричной СС будет 1 и 19 нулей.
тогда полученное число 1 -> 4 нуля -> 1 -> 14 нулей. пока их 18
теперь от полученного отнимем 18 в СС с основанием 6.
18(10) = 30(6)
0 - 0 = 0 (последний разряд числа)
далее по принципу вычитания "занимаем" разряды до ближайшей единицы. после чего у нас остаётся 3 в предпоследнем разряде и 12 цифр 5.
итого у нас 12 пятёрок, тройка и единица. так как число 20 разрядное, то 20 - 14 = 6 нулей в записи числа в СС с основанием 6
ответ: 6
Можно и в лоб посчитать, тогда получим 10000055555555555530
В PascalABC.NET есть много что готового. В частности, используя новые возможности, можно записать всё одной (вернее, двумя) строчками:
Код (PascalABC.NET):
##
ArrRandomInteger.Select((val, ind) -> Format('a[{0}] = {1}', ind, val)).Print(NewLine)
Пример вывода:
a[0] = 83
a[1] = 6
a[2] = 58
a[3] = 61
a[4] = 64
a[5] = 49
a[6] = 59
a[7] = 9
a[8] = 83
a[9] = 75
Более традиционный (в стиле "старого Паскаля") подход можно реализовать, например, так:
Код (PascalABC.NET):
var
a: array[1..10] of integer;
i: integer;
begin
for i := 1 to 10 do
begin
a[i] := random(101);
writeln('a[', i, '] = ', a[i]);
end;
end.
Пример вывода:
a[1] = 7
a[2] = 21
a[3] = 15
a[4] = 78
a[5] = 91
a[6] = 72
a[7] = 63
a[8] = 56
a[9] = 38
a[10] = 81