Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 04.07.2018 06:28
- Информатика
- remove_red_eye 10733
- thumb_up 93
Ответы и объяснения 2
programfactorial; functionfact(n:integer):longint;beginif(n=0)thenfact:=1elsefact:=n*fact(n-1); end; varn:integer; begin forn:=0to16do writeln(n,'! = ',fact(n));end.
- 05.07.2018 02:18
- thumb_up 8
var
n, fact: word; //fact - факториал числа
i: integer;
begin
fact:= 1; //Присваиваем начальное значение
writeln('Введите число n');
readln(n);
for i:= 1 to n do //Для i, равного от 1 до n умножаем значение fact на i
fact:= fact * i;
writeln(n, '! = ', fact);
end.
Отметь решение, как лучшее, плиз)
- 06.07.2018 13:17
- thumb_up 38
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.