Question

Составьте программу в паскале ,очень надо и быстро пожалуйста !! Подсчитать произведение первых семнадцати целых положительных чисел

Answer 1

Var i : integer; p:real;
begin
p:=1;
for i:=1 to 17 do p:=p*i;
writeln(p);
end.

Answer 2

Я могу помочь вам с написанием программы на Паскале, которая подсчитывает произведение первых семнадцати целых положительных чисел. Вот пример кода, который делает это:

program Product; var i, prod: integer; begin prod := 1; // начальное значение произведения for i := 1 to 17 do // цикл от 1 до 17 prod := prod * i; // умножаем произведение на текущее число writeln('Произведение первых 17 целых положительных чисел равно ', prod); // выводим результат end.

Вы можете запустить эту программу в онлайн-компиляторе Паскаля, например, [здесь]. Надеюсь, это поможет вам с вашим заданием.