:найти произведение нечётных чисел от 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; см. пункт 26)  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.

Norton ent., nod32,johny mcafee,cloudfare  и тд, крч все антивирусные и анти ддосные  компании