Составьте программу вычисления произведения квадратов чисел от 4 до 9. В Паскале, цикл...

Question

Составьте программу вычисления произведения квадратов чисел от 4 до 9. В Паскале, цикл repeat.

Answer 1

Var
   A:integer;
   P:real;
Begin
P:=1;
A:=4;
Repeat
P:=P*A*A;
A:=A+1
Until A > 9;
WriteLn('P = ',P);
ReadLn
End.