Question

ПОМОГИТЕ ОЧЕНЬ НУЖНО!!​

Answer 1

Ответ:

read(p);

i:=1;

Объяснение:

var i,c, p,d: integer;

begin

Writeln('Введите число для определения количества');

read(p);

c:=0;

d:=1;i:=1;

repeat

if i mod 2=1 then begin

d:=d*i; c:=c+1;

writeln('i= ',i,' d= ',d, ' c=',c);

end;

i:=i+1;

until p<=d;

if d>p then c:=c-1;

writeln('количество нечетных чисел равно ',c);

end.

пропущен ввод числа меньше которого должно быть произведение

неправильно задано начальное значение переменной i (при 0 наше произведение (d) становится равным 0)