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

Question

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

Answer 1

Var
  i: integer;
  p: double;

begin
  i := 11; p := 1;
  while(i <= 99) do<br>  begin p := p * i; i := i + 2 end;
  Writeln('Произведение всех двухзначных натуральных нечетных чисел: ', p)
end.

Результаты решения:
Произведение всех двухзначных натуральных нечетных чисел: 2.88401284629707E+75

Точный ответ: 2884012846297068257122447878731130828879149556133125305538972299939794921875

Comments

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

---

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

---

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

---

Бывает.)

Answer 2

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.

Comments

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

---

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