Сделайте программу которая будет считать(умножать) все числа до 50.
Зробіть програму, яка знайде добуток всіх чисел до 50.
Программу в Паскале.

Предыдущий
вопрос Следующий
вопрос

program MultiplyNumbers;

var
i, result: integer;

begin

result := 1;

for i := 1 to 50 do
begin
result := result * i;
end;

writeln('The product of all numbers from 1 to 50 is: ', result);

end.