Задача: Найти произведение нечётных чисел от 1 до 15. В преложенном тексте программы найдите ошибки. Programm z_1; Var i, p : real; Beigin; p=0; i=1; write i > 15 to beigin; p:=p+i; i=i+2; while ('произведение нечётных чисел от 1 до 15 = ', р); End.

В исходном тексте замечены многочисленные синтаксические ошибки, а также логические: неверное условие цикла, неверное вычисление переменной p на каждой итерации (сумма, а не произведение). Корректный текст:

Program z_1;

Var i, p : real;

Begin

p:=1; i:=1;

while i < = 15 do

begin

p:=p*i;

i:=i+2;

end;

write ('произведение нечётных чисел от 1 до 15 = ', р);

End.