Дано натуральное число n. вычислить n! = 1*2*3**n
дождолей
1
23.11.2019 20:21
1
Другие вопросы по теме Информатика
roker62
22.09.2019 14:10
m1m2m3m4m571
09.04.2019 22:45
Astento
30.04.2020 16:43
юлия19844
08.04.2021 16:00
приветпрррррр20246р
08.04.2021 16:00
bi2002
08.04.2021 15:59
Shavelko
08.04.2021 15:59
tititititititi
10.06.2019 13:30
natakhafedotovp06k9x
10.06.2019 13:30
Популярные вопросы
- Уколи m марок,а у димы n марок.они сложили их и поделили поровну.сколько марок...
2 - Катеты прямоугольного треугольника равны 60 см и 80 см. найди гипотенузу....
1 - По какому признаку составлена строка 56 5 56 10 56 50 56 100 56 500...
2 - Отметьте,какое имя носил пятый сын в римской семье гай,марк,квинт,секст...
1 - Примеры инерции: в технике и природе...
2 - Образуй однокоренные слова. выдели корень. звон что? кто? какой? что делать? какой?...
2 - Перевод текста american teens with drive...
1 - Сколько времени займет спуск на парашюте с высоты 2 км при скорости равномерного...
1 - Скорость теплохода в стоячей воде 20 2/7 км/час а скорость течения реки 2 11/14...
3 - Найдите область значения функции e(f) 1)у=-2х² 2)у=1/х 3)у=2+√х...
3
program vld;
var
factorial: longint;
n, a: byte;
begin
write('n = '); readln(n);
factorial := 1;
for a:=2 to n do
factorial := factorial * a;
writeln('n! = ', factorial);
readln;
end.