Asian28
24.07.2020 13:07

Дано натуральное число n, вычислить n! (0! =1, n! =n*(n- составить программу на pascal.

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
Шаурма1111111
10.10.2020 01:58

var

   a : integer;

   fac : BigInteger := 1;

   

begin

   readln(a);

   if a > 0 then for var i := 1 to a do fac *= i;

   writeln(a, '!=', fac);

end.

0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота