Question

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

Answer 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

Answer 2

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

Answer 3

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

Answer 4

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

Answer 5

Бывает.)

Answer 6

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.

Answer 7

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

Answer 8

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