Составьте программу вычисления произведения P=135 * ... * 23 (в паскале)

Question

Нася

16 июня, 17:54

+3

Ответы (1)

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

Граня · Answer 1

Program ca;

var

p, i: integer;

begin

i : = 3;

p : = 1;

while i < = 23 do

begin

p : = p * i;

i : = i + 2;

end;

writeln ('p = ', p) ;

end.

Составьте программу вычисления произведения P=1*3*5 * ... * 23 (в паскале)