Вопрос, который вызвал трудности

1. используя цикл for вывести на экран чётные числа от 1 до 40
2. найдите произведение нечётных чисел от 1 до n

Ответ экспертов Учись.Ru

Чтобы дать полноценный ответ, был привлечён специалист, который хорошо разбирается в теме.

После обсуждения с другими специалистами сервиса мы пришли к выводу, что правильный ответ на ваш вопрос будет звучать следующим образом:

1.
var i:integer;
begin
for i:=1 to 40 do 
if not odd(i) then write(i:3);
end.

2.
var i,n,p:integer;
begin
write('Введите n: '); readln(n);
p:=1;
for i:=1 to n do 
if odd(i) then p:=p*i;
write(p);
end.