Мне нужно написать программу калькулятор с функцией нахождения факториала числа

Question

Информатика

Грапа

26 ноября, 14:05

Мне нужно написать программу калькулятор с функцией нахождения факториала числа

+3

Ответы (1)

Знаете ответ на вопрос?

Ала · Answer 1

Program fact;

uses crt;

var n, i, s:integer;

beginS:=1;

write ('Введите число - ') ;

readln (n) ;

If n<=0 then

write ('Ваше число либо отрицательное, либо равно нулю. Факториал 0!=1')

else begin

for i:=1 to n do

S:=s*i;

write ('Факториал Вашего числа равен - ', s) ;

end;

end.