Регистрация
Groverr
30.01.2021 11:58
Информатика
Есть ответ 👍

Как вы думаете, почему графические файлы сжались так сильно?

292
370
Посмотреть ответы 1

Ответы на вопрос:

Farman2001
Farman2001
4,4(40 оценок)
Program  problem1; { вычисление факториала числа n! } uses  wincrt;   var                    n, f, i : longint;   begin  write("введите натуральное число "); readln(n); f : = 1;   if  n < > 0  then  for  i : = 1  to  n  do  f : = f*i;   writeln("факториал числа ", n, " равен ", f)  end.также можно сделать так: program   problem1a;   uses   wincrt; var  n, i, f : longint; begin  write("введите натуральное число "); readln(n);   f : = 1;   if   n < > 0  then  for   i : = n  downto  1  do   f : = f*i; writeln("факториал числа ", n, " равен ", f)  end.

Популярно: Информатика