Question

сколько чисел надо умножить чтобы произведение стало больше 500 если числа заданы последовательностью 1 3 5 на паскале

Answer 1

Код в комментарии ниже:

Answer 2

program to_500;
uses crt;
var i, cnt, p: integer;
const need = 500;
begin
cnt := 1;
i := 1;
p := 1;
while p <= need do
begin
p := p * i;
i := i + 2;
cnt := cnt + 1;
end;
writeln('Надо умножить ', cnt, ' чисел');
readkey();
end.

Answer 3

спасибо