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

Question

Информатика

Болеслава

11 сентября, 13:08

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

+2

Ответы (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.