Написать программу вычисления произведения однозначных чисел от 1 до 9 паскаль с циклом Do

Question

Написать программу вычисления произведения однозначных чисел от 1 до 9 паскаль с циклом Do

Answer 1

Ответ:

program z1;

var a,p:integer;

begin

a:=0;

p:=1;

repeat

a:=a+1;

p:=p*a

until a=9;

writeln (p)

end.