Задача: Найти произведение нечётных чисел от 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.

По порядку:

Programm z_1; слово программа на английском пишется с 1 m правильно: program z_1;

1) Beigin; правильно Begin и без точки с запятой

2) p=0; оператор присвоения пишется не просто равно, а : = правильно: " p:=0; "

3) i=1; см. 2 пункт

4) write i > 15 to beigin; write - это оператор вывода, полагаю тут надо цикл while, условие лучше писать в скобках, не to, а do и beigin см. пункт 1 правильно: while (i > 15) do begin

5) i=i+2; см. пункт 2

6) while ('произведение нечётных чисел от 1 до 15 = ', р) ; тут полагаю нужен оператор вывода write, так же в скобках там буква Р русская, а надо P (пэ) английскую. правильно: write ('произведение нечётных чисел от 1 до 15 = ', p) ;

7) End. в конце цикла пишут end;

8) в конце программы ставят End.

Откорректированный код:

Program z_1

Var i, p : integer;

Begin

p:=0;

i:=1;

while (i > 15) do begin

p:=p*i;

i:=i+2;

end;

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

End.