Перевести числа из 10-й системы счисления в 7-ю, 15-ю системы счисления следующее число: 728
117
347
Ответы на вопрос:
Решение с использование длинной арифметики. var i, j, n, len, rem: integer; a: array[1..200] of byte; begin write('введите число: '); read(n); len : = 1; a[1] : = 1; for i : = n + 1 to 99 {100} do begin for j : = 1 to len do begin rem : = a[j] * i + rem; a[j] : = rem mod 10; rem : = rem div 10; end; while rem > 0 do begin inc(len); a[len] : = rem mod 10; rem : = rem div 10; end; end; writeln('произведение чисел из интервала (', n, '; 100): '); for i : = len downto 1 do write(a[i]); end. пример работы программы: введите число: 1 произведение чисел из интервала (1; 100): 1948348720420644788695888257080283249381963823594360049498643927185579338215778728274424636079639781709574621897447185108592230400000000000000000000
Популярно: Информатика
-
Даня32455622.11.2020 18:43
-
DementоR09.03.2023 02:38
-
YuLia12062009.07.2021 04:41
-
лия20621.05.2021 05:27
-
Давиденко23.04.2020 12:32
-
nomerperv12.02.2020 20:19
-
ДимаБум06.11.2022 14:30
-
nikvermenox7gay19.09.2022 15:42
-
elenaklass127.05.2023 12:30
-
МиленаКриницына02.11.2021 01:15