Вычислить произведение чисел от 3 до 30 используя циклы for while
Вычислить произведение чисел от 3 до 30 используя циклы for while
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы