Создать в Паскале программу подсчёта произведения N последовательных натуральных чисел начиная с одного!

Question

Информатика

Стася

13 сентября, 15:31

Создать в Паскале программу подсчёта произведения N последовательных натуральных чисел начиная с одного!

+3

Ответы (1)

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

Марина · Answer 1

program p;

var n, i, o: integer;

begin

o:=1;

writeln ('Введите колчиство чисел:') ;

readln (n) ;

for i:=1 to n do o:=o*i;

writeln ('Ответ:', o) ;

readln; end.