Используя, команду while напишите программу вычисления суммы и произведения натурального ряда чисел от 1 до n
Используя, команду while напишите программу вычисления суммы и произведения натурального ряда чисел от 1 до n
Гость
Ответ(ы) на вопрос:
Гостьbegin m:=1; k:=1; read(n); i:=1; while i<>n do begin k:=k+i; m:=m*i; i:=i+1; end; write(k,' ',m); end. Переменные, думаю, сами опишете)
Не нашли ответ?
Похожие вопросы