tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Дано целое число n(больше
Дано целое число n(больше 0) найти произведение n! =1*. n(факториал).чтобы избежать целочисленного переполнения,вычислять это произведение с вещественной переменной и вынести его как вещественное число
karandash72772
2 12.09.2019 11:10
1
Ответы
тисрлю
07.10.2020 09:35
Var
f:real;
i,n:longint;
begin
write('Write n: ');readln(n);
f:=1;
for i:=1 to n do
begin
f:=f*i;
end;
writeln('fact: ',f:0:0);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Ларкия
28.03.2019 20:00
Тест. , , надо! 1) укажите через запятую в порядке возрастания все основания систем счисления в которых запись числа 75 оканчивается на 13 2) укажите через запятую в порядке...
stepanoganezov
18.05.2020 13:08
Створіть процедуру для обчислення значення виразу a*(3b-c) і напишіть ії тут...
myxa00mop
18.05.2020 13:08
В якому пристрої реалізується опрацювання повідомлень?...
Рокистка068
11.12.2020 11:50
Упростить выражение! 1&AvBvAvBv0...
Fidjit
11.12.2020 11:53
В табличном процессоре Excel столбцы?...
bizpro22
11.12.2020 11:54
Найдите правильную формулу вычисления среднего количества проданного товара за неделю (см рисунок) *...
Deer22
11.12.2020 11:57
5. Чему будет равна переменная «c» после выполнения этой программы:a := 24 b := 5b := mod(a,b) + 4c := mod(a,b) + 1...
IrishkaKoteika2689
28.05.2019 19:40
Запишите формулу гидроксида элемента,атом которого имеет два энергетических уровня, а в соединении с водородом проявляет валентность, равную iv. укажите характер гидроксида....
schastlivayolg
28.05.2019 19:40
Придумать сочинение на тему: новогодние каникулы ,с использованием нарчеий...
orenet
28.05.2019 19:40
Причины гибели якобинской диктатуры кратко...
Популярные вопросы
8.Письменно ответьте на вопросы: Что такое фразеологизмы? Перечислите...
2
Легко!! ))) как вы относитесь к игре которую придумали девочки? какие...
3
Барашкова проверочные работы 8 класс. Spotlight - Спотиинглиш.Dozens...
2
Знайти три пари чисел що є розв язком рівняння 3x-y=-1...
3
Напишите реферат по отзыву...
3
6.Выпишите пары антонимов: 1)оптимист-труженик; 2)ложный - истинный;...
3
Які йони утворюють заряд гранули міцели? а) негативно заряджені; б)...
2
Скласти сенкан зі словом енергія...
3
Знайдіть значення виразу 6¹+log6⁴...
1
Рівновага в системі Н, + I, +2 HI при таких концентраціях речовин,...
1
f:real;
i,n:longint;
begin
write('Write n: ');readln(n);
f:=1;
for i:=1 to n do
begin
f:=f*i;
end;
writeln('fact: ',f:0:0);
end.