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

Question

Информатика

Фридрих

12 января, 16:21

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

+1

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