Используя, команду while напишите программу вычисления суммы и произведения натурального ряда чисел от 1 до n

Question

Анда

2 января, 03:33

+4

Ответы (1)

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

Цвета · Answer 1

Begin m:=1; k:=1; read (n) ; i:=1; while in do begin k:=k+i; m:=m*i; i:=i+1; end; write (k,' ', m) ; end. Переменные, думаю, сами опишете)