Войти Регистрация Спроси ai-bota

Вычислить произведение n-сомножителей p=1*2**10=10!

Нажмите на рекламу ниже и сразу увидите ответ

↓

Популярные вопросы:

kitrfjhhru

15.03.2023 04:00

Какую логическую операцию нужно добавить в программу вместо многоточия, чтобы значение переменной «a» после выполнения фрагмента программы стало равно 3? a : = 10; b...

sunaway1p0ar90

15.03.2023 04:00

Определите значение переменной «a» после выполнения фрагмента программы: a : = 10; b : = 5; if not (a 5) then a : = 5;...

kseniy32

29.06.2021 20:25

Внимательно прочитай примету. какой вид чувств соответствует данной примете? ели рыбаку или охотнику поделали удачного лова или охоты-жди обратного результата...

андрей90321

14.04.2021 15:58

Решить нужно объясните как решать подобные в системе счисления с основанием а запись числа 74 оканчивается на 4 и содержит 3 цифры. чему равно а?...

sasha60503

04.04.2020 23:51

Восновной программе вводится строка, состоящая из слов. под словом понимается последовательность символов, отделенная пробелами или стоящая в конце или начале строки....

LyusiaG

03.11.2020 08:27

Ограничение по времени: 1 секундаограничение по памяти: 64 мегабайтастас собрался в поход и решил взять с собой финтифлюшку ( полезная в походе вещь). но у стаса есть...

shamalava210505

17.08.2021 21:02

При скольких целых значениях x будет истинным логическое выражение ((x 36) and (x 33)) and (x 35)...

strong123

06.11.2022 15:35

Какие из перечисленных ниже программных средств относяться к основному программному обеспечению эвм? субд,операционная система,электронный процессор,драйверы устройств,текстовый...

Дракон2323

06.11.2022 15:35

Мальчик учит стихотворение из 40 строк. чтобы запомнить первую строчку надо 1 мин.на каждую следующую он тратит на 10% времени больше. стихотворение держится в памяти...

Тёна333

07.04.2023 19:31

Рассчитайте объём видиопамяти необходимой для хранения графической изображение занимающего весь экран монитора с разрешением 640х480 и палитрой из 65536 цветов. N=65...

Ответ:

Svetik226

05.07.2020 09:31

Var i,p,n:integer;
begin
p:=1;
readln(n);
for i:=1 to n do
p*=i;
writeln(p);
end.

0,0(0 оценок)

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку