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

С1 1)при заданном n вычислить n факториал

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

↓

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

Elluy

04.01.2022 05:14

2. В рабочем окне программыSketchUp впишите название инструментов:...

yevdokimenkoal

08.04.2023 09:02

Дано х, a- действительное число. Вычислить. : у = 2а – (х + 6) 1. Выведите соответствующие выражение формулы. 2. Составьте блок-схему для решения задачи....

bondaryulia2000

26.02.2020 13:23

N+4n^3 5 + корень 3 n вычислите ! паскаль! 60 бл! ♥...

tailurs

14.09.2020 11:19

Ввести с клавиатуры массив из 5 элементов ,найти в среднее арифметическое всех отрицательных элементов массива....

valare338

07.01.2021 15:19

Нарисовать блок схему этой программы #include using std: : cout; using std: : cin; using std: : endl; int main() { int a[10] = { 5, 2, 8, 21, 17, 9, 0, 3, 1, 2 }; float mean =...

асаляя

22.10.2021 20:40

Для какого из чисел истинно высказывание: (число 60) и не (число чётное)? 1) 35 2) 72 3) 81 4) 28...

serbakovm888

30.09.2022 15:35

Втекстовом документе средствами ms word создайте следующую таблицу и произведите форматирование текста по предложенному образцу...

Мегамозг0511

24.06.2022 11:40

3. Середній рід мають усі іменники варіанта А знання, нероба, поле, дівчаБ зілля, президія, сирота, купанняВ збіжжя, коріння, закриття, БаліГ кукурудзиння, багаття, Ватерлоо,...

lukash231082

23.12.2020 15:04

У исполнителя Умножатор две команды, которым присвоены номера: 1. умножь на 3 2. прибавь 2 Первая из них увеличивает число на экра¬не в 3 раза, вторая — прибавляет к числу 2....

Darya17061

16.07.2020 11:35

напишите названия инструментов...

Ответ:

beynyadima

02.10.2020 19:03

Var
N,N1:integer;
Begin
N1:=1;
Write('N = ');ReadLn(N);
For N:= 2 to N do
N1:=N1*N;
WriteLn(N,'! = ',N1)
End.

Во вложении вариант для Pascal ABC.net

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

Ответ:

kirill1s

02.10.2020 19:03

Var n,i: Integer;
f: LongInt;
begin
writeln('vvedite n=');
readln(n);
f:=1;
for i:=1 to n do
f:=f*i;
writeln('faktorial=',f);
readln;
end.

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

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

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