Ответы на вопрос:
Var i,n,f: integer; begin readln(n); i: =1; f: =1; while i< =n do begin f: =f*i; inc(i); end; writeln(f); readln; end.
Популярно: Информатика
-
romanenkoanna6601.08.2021 23:31
-
AndreyVisaGold22.07.2020 19:11
-
moon55119.03.2021 01:53
-
8963587889530.01.2021 19:16
-
Lerika5164016.04.2021 08:08
-
wingluhova8202.06.2020 09:46
-
Ника625822723.02.2022 17:50
-
katja070911.08.2022 01:27
-
фаропар13.09.2020 19:57
-
dogmisha22801.02.2022 18:41