var i,n,s:integer;
begin
readln(n);
s:=1;
for i:=1 to n do
s:=s*i;
writeln(s);
end.
Похожие записи/страницы:
- С клавиатуры вводятся N чисел. Составьте программу, которая определяет количество отрицательных, количество…
- Составить программу, которая формирует массив из 5 целых чисел,принадлежащих промежутку [1;5], и вычисляет…
- Написать программу которая вводит с клавиатуры пять вещественных чисел и вычисляет их среднее арифметическое,…
- Написать программу, которая по введенному значению аргумента вычисляет значение функции заданной в виде графика.…
- Написать программу которая вычисляет сумму и произведение N чисел (N ввести с клавиатуры) кратных 3 из всех…
- Дан двумерный массив А, состоящий из m строк и n столбцов Составить программу, которая вычисляет произведение…
- Составьте программу, которая вычисляет среднее арифметическое, чётным значений 2 находящихся в файле tot.txt -…
- Написать программу, которая вычисляет произведение цифр заданного k значного числа. При этом предполагается, что k