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

Question

Рюрик

28 февраля, 20:40

+1

Ответы (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 (в паскале)