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

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

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

↓

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

dmitrii1205

20.12.2022 16:23

Построение кусочно- линейного интерполирующего выражения, для вычисления которого не требуются логические операции....

Tiktak222

29.01.2021 11:44

Но какова, что, доверяясь алгоритмам, мы перестанем думать самостоятельно и вообще разучимся это делать?...

Д91

30.09.2022 06:03

ПОМГОИТЕ. 1) Де використовується база данних в освіті, медицині, торгівлі, транспорті...

ЖекЖек

31.03.2020 15:11

По восприятия информация о температуре воздуха является: 1) вкусовой2) тактильной3) аудиальная4) обонятельнойк какой форме представления информации, относится счет...

danilchirkov0

25.07.2021 06:51

Валфавите языка две буквы. известно, что все слова этого языка имеют одинаковое количество букв и всего существует 2048 различных слов. сколько букв в каждом слове?...

Urinasonya

25.07.2021 06:51

Внекотором городе разговоры по телефону оплачиваются следующим образом. если абонент использовал не более 300 минут (норма), то оплата составляет 20 копеек за минуту....

dreytes

29.12.2021 05:29

Может ли машина заменить деятельность творческого работника? ответ аргументируйте...

geometriya3

29.11.2021 17:01

Выражение (x 1) и ((x 5) → (x 3)) принимает значение истина, если x равно: a. 4 b. 2 c. 3 d. 1...

fedorinovkirs

29.11.2021 17:01

На pythonэлектронные часы показывают время в формате h: mm: ss, то есть сначала записывается количество часов, потом обязательно двузначное количество минут, затем...

lddobroz

05.12.2021 17:02

Марат разрабатывает новую обучающую компьютерную игру по математике для детей 4-11 лет.Напишите требования к оформлению интерфейса....

Ответ:

anyutarak03

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 оценок)

Ответ:

TokOst

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 Оформи подписку