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

Question

Информатика

Стася

10 августа, 00:22

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

+4

Ответы (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.