Написать алгоритм "Найти n! "
olgakorneva1
1
21.04.2020 22:47
0
Другие вопросы по теме Информатика
paliy2006
20.10.2020 03:55
МастерФейк
20.10.2020 03:54
ako91545
16.01.2021 11:07
adamenkofamily
07.08.2019 15:10
polyzaicka
07.08.2019 15:10
ДашуляСупер
07.08.2019 15:10
kristinamirnaya
11.06.2019 01:30
polka3893
25.12.2020 16:25
Популярные вопросы
- Роман дубровский.надо написать про роль в обществе троекурова и дубровского....
2 - Что такое сложносочинённое предложение? примеры. составьте предложение сложносочинённое...
3 - По тексту конституции,что собой представляет россия ?...
2 - Хорды ае и вс пересекаются в точке к, угол вса=15°,угол екс =74°.найдите...
2 - Втипографии упаковали 3.810 учебников в пачке по 6 книг и 6.816 учебников...
1 - Вгомогенной системе а + 2в ↔ с равновесные концен-трации реагирующих газов:...
1 - При составлении сообщения использовали 128- символьный алфавит. каким будет...
1 - Дано: авсd- прямоугольная трапеция. угол асd=90 градусов, ас=60 см, вс= 36...
1 - Нужно нарисовать рисунок в paint на тему мой досуг. незнаю что придумать....
2 - От пристани отчалил одновремено пороход и катер; они плыли в одном направлении,пароход...
1
Код ниже
Объяснение:
program factorial;
var n, d, i: integer;
begin
writeln('Введите n');
readln(n);
d := 1;
for i := 1 to n do begin
d := d*i;
end;
writeln('Факториал числа ', n, ' равен ', d);
end.