Написать программу нахождения числа, если известен факториал числа на паскале
235
238
Ответы на вопрос:
Var a,b: real; begin b: =0; write('a! = '); readln(a); if a = 0 then write('a = ',1) else begin while a/(b+1)< > 1 do begin b: =b+1; a: =a/b; end; write('a = ',a) end end.
Популярно: Информатика
-
Самина200620.09.2020 12:34
-
VeraLife120.02.2023 23:03
-
lyudagrigoreva206.01.2023 09:22
-
foma2004korol14.07.2022 09:35
-
гикат03.01.2020 05:17
-
timca201421.10.2020 12:38
-
Traken27.06.2020 03:30
-
cisjxhskxhha16.07.2021 14:43
-
petranikeev04.01.2021 07:08
-
Kotenok05200001.09.2021 00:19