Ответы на вопрос:
насколько я понял, нужно перевести из двоичной системы счисления в десятичную.
обычно это делают, умножая цифру в каждом разряде на "вес" разряда, и складывая эти произведения (естественно, все вычисления делаются по правилам десятичной системы счисления).
я специально не стал пропускать разряды, равные нулю, чтобы была понятнее суть вычислений при переводе:
а так, их конечно можно пропустить, но главное при этом не пропускать увеличение степени, в которую возводим двойку (она увеличивается на единицу с каждым разрядом в исходном числе). вот вариант с пропуском нулевых разрядов:
Var n,a,res: integer; i: integer; begin n: =1; write('введите n: '); readln(n); write('введите a: '); readln(a); res: =a; for i: =1 to n do begin res : = res*(a-i); end; writeln('ответ: ',res) end.пример: введите n: 2 введите a: 4 ответ: 24
Популярно: Информатика
-
lololokgjh04.07.2020 12:11
-
jerrymoup0dqct03.05.2020 14:13
-
KsennyTAR31.10.2020 18:28
-
coolvikusa4601.05.2022 22:54
-
minskayai06.08.2020 17:56
-
tcalala09.05.2020 11:24
-
DimaMartolog09.12.2021 17:11
-
kotrboy06.02.2022 04:49
-
максим150388990027.04.2020 02:11
-
andron9219.10.2022 23:46