Вычислить произведение чисел от 3 до 30 используя циклы for while

Question

Информатика

Костяня

11 февраля, 18:45

Вычислить произведение чисел от 3 до 30 используя циклы for while

+3

Ответы (1)

Знаете ответ?

Ниноша · Answer 1

Var A:integer;

P:real;

Begin

P:=1;

For A: = 3 to 30 do

P:=P*A;

WriteLn ('P = ', p) ;

P:=1;

While A>=3 do

Begin

P:=P*A;

A:=A-1

End;

WriteLn ('P = ', P) ;

End.