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.

Answer 2

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

pascalCopy code
program MultiplyOneDigitNumbers;
var
  i, product: integer;
begin
  product := 1;
  i := 1;
  
  repeat
    product := product * i;
    i := i + 1;
  until i > 9;
  
  writeln('Произведение однозначных чисел от 1 до 9 равно: ', product);
end.

Программа начинает с инициализации переменных product (произведение) и i (счетчик). Затем она использует цикл repeat-until, чтобы умножить каждое число от 1 до 9 на текущее значение product. После завершения цикла выводится результат произведения.