найти произведение всех двухзначных нечетных натуральных чисел с помощью ABC Паскаль

неправильно. сказано "двухзначных", а у вас начинает считать с 3.

Увлекся, спасибо

Не дописал единицу. Хотел написать 11. написал 1. Уже исправил

Бывает.)

Я проверил. там идет с целыми переполнение разрядной сетки, а Паскаль АВС молчит.

да. тип другой нужен. но код верный.)

var  i: integer;  p: double;begin  i := 11; p := 1;  while(i <= 99) do  begin p := p * i; i := i + 2 end;  Writeln('Произведение всех двухзначных натуральных нечетных чисел: ', p)end.Результаты решения:Произведение всех двухзначных натуральных нечетных чисел: 2.88401284629707E+75Точный ответ: 2884012846297068257122447878731130828879149556133125305538972299939794921875

var  i, p: longint;begin  p := 1;  for i:=10 to 99 do  if (i mod 2)<>0 then  p := p * i;  Writeln('Произведение всех двухзначных натуральных нечетных чисел: ', p)end.